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Preface 
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of  this  thesis;  to  Captain  Ed  Oliver  for  his  technical 
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Abstract 


An  Interactive  hierarchical  to  CODASYL  schema 
translator  was  designed  and  implemented  with  the  goal  of 
talcing  a  System  2000  (hierarchical)  schema  as  input  and 
producing  an  equivalent  IDMS  (CODASYL)  schema,  storage  schema 
(DMCL),  and  subschema.  In  addition,  this  system  is  to  serve 
as  part  of  an  entire  System  2000  to  IDMS  database  translator 
system. 

This  thesis  effort  includes  an  analysis  of  the 
hierarchical  and  CODASYL  models,  an  analysis  of  the  System 
2000  implementation  of  the  hierarchical  model,  an  analysis  of 
the  IDMS  implementation  of  the  CODASYL  model.  Data  Flow 
Diagrams  for  the  general  hierarchical  to  CODASYL  schema 
translator,  structure  charts  for  the  System  2000  to  IDMS 
schema  translator,  translator  source  code,  and  data 
dictionary. 


I.  Introduction 


The  purpose  of  a  database  management  system  (DBMS)  Is 
to  record  and  maintain  Information  used  by  an  organization  In 
the  organization's  decision-making  process.  Some  advantages 
of  a  DBMS  are  reduced  data  redundancy,  improved  data 
consistency,  sharing  data  between  users,  enforcing  data 
standards,  maintaining  data  Integrity  and  data  Independence. 

Database  Management  Systems  are  classified  Into  three 
major  models;  relational,  network,  and  hierarchical.  Each 
model  uses  a  software  design  which  will  support  a  certain 
physical  data  representation  in  an  efficient  manner.  Figure 
I  -  1  Illustrates  the  hierarchical  model,  figure  I  -  2 
Illustrates  the  network  model,  and  figure  1-3  illustrates 
the  relational  model. 
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Since  this  thesis  will  deal  with  the  inter-relationship 
between  the  hierarchical  and  the  network  approaches, 
they  will  now  be  discussed  in  further  detail. 

'Hierarchical  Approach 

Some  characteristics  of  the  hierarchical  model  are 
record  types,  relationships  connecting  record  types,  only  one 
relationship  between  record  types,  relationships  (arcs) 
pointing  only  to  the  leaves  of  the  tree,  and  1 :  N 
relationships  only.  (Ref  1:121) 

The  hierarchical  approach  does  not  provide  a  means  for 
providing  many-to-many  relationships  between  record  types, 
but  most  hierarchical  DBMS  do  provide  the  capability  to 
support  many  hierarchical  data  trees.  The  user  may  thus 
represent  many-to-many  relationships  by  duplicating  record 
types.  (Ref  1: 122) 

Some  specific  advantages  of  the  hierarchical  approach 

are : 

1.  It  is  a  simple  data  model  which  provides  the  user 
with  few,  easy- to-master,  commands. 

2.  The  types  of  relationships  are  much  easier  to 
Implement  than  the  other  DBMS  approaches.  (Ref  1:122) 


Some  specific  disadvantages  of  the  hierarchical  approach: 
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1.  The  restrictions  imposed  sometimes  force  an 
unnatural  organization  of  the  data. 

2.  Operations  such  as  Insertion  and  deletion  become 
quite  complex. 

3.  A  delete  operation  can  lead  to  the  loss  of 
Information  contained  in  a  descendant  record  if  null 
records  are  not  allowed. 

4.  Symmetrical  queries  can  not  always  be  answered 
easily  in  a  hierarchical  system.  (Ref  1:123) 


Network 


The  most  comprehensive  specification  of  a  network  model 
is  in  the  April  1971  report  published  by  the  Data  Base  Task 
Group  (DBTG)  of  the  Conference  on  Data  Systems  Languages 
(CODASYL).  Proposed  changes  to  this  document  were  submitted 
in  1973  and  1978.  Interested  readers  are  referred  to 
[CODASYL  1971,  1973,  1977]  for  further  information.  The 
objective  of  the  report  was  to  specify  the  facilities  of  a 
DBMS  and  to  propose  the  facility  for  embedding  it  into  COBOL. 
The  hierarchical  and  network  approaches  are  very  similar  in 
most  respects,  therefore  only  the  significant  differences 
will  be  mentioned  in  this  thesis. 
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The  advantages  of  the  network  model  are: 


1.  The  network  approach  Is  more  general,  allowing 
more  than  one  owner  record  type. 

2.  The  network  approach  allows  the  user  to  model 
many-to-many  relationships  with  greater  ease. 

3.  The  network  approach  is  more  symmetric. 

4.  Insertion  and  deletion  operations  are  much  easier 
to  perform  on  the  data  base. 

The  prime  disadvantage  of  the  network  approach  is  the 
complexity  contained  in  both  the  data  structure  and  in  the 
Data  Manipulation  Language  (DML).  Since  the  network  approach 
does  allow  more  types  of  record  constructs  than  the 
hierarchical  approach,  it  will  obviously  need  more  operators 
to  handle  them,  which  will  cause  more  complication  in  the 
DML.  (Ref  2:70) 

Description  of  the  Problem 

Nearly  everyone  would  agree  that  any  automated  system 
developed  should  be  "user  friendly"  to  the  point  that  it  is 
at  least  usable  by  the  end  user  for  whom  it  was  designed. 
Although  there  have  been  many  meanings  associated  with  the 
term  "user  friendly",  for  the  purpose  of  this  thesis,  a 
software  package  is  "user  friendly"  if  it  has  the  qualities 
of  being  usable  by  the  user,  supplies  informative  messages  to 
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the  user,  and  the  user  can  exit  the  software  package  at  any 
time.  This  Is  particularly  true  of  database  management 
systems  (DBMS)  where  the  end  user  typically  has  little  or  no 
data  processing  background. 

The  ASD  Computer  Center  currently  has  Intel 
Corporations'  System  2000  ( S 2 k )  and  Cull  1  net  Database 
Systems'  Integrated  Database  Management  System  (IDMS).  S2k 
Is  a  hierarchical  DBMS,  where  IDMS  Is  a  network  structured 
implementation  of  the  CODASYL  Data  Base  Task  Group  Language 
specification.  IDMS  was  designed  for  the  end  user.  Current 
users  of  S2k  feel  that  S 2k  was  not  designed  for  the  end  user. 
This  feeling  Impedes  the  overall  effectiveness  of  the 
Acquisition  Management  Information  System  (AMIS),  which 
currently  uses  S2k.  The  size  of  the  AMIS  organization  and 
the  importance  of  their  mission,  would  make  a  complete 
conversion  to  IDMS  very  costly. 


lectl  ve 


The  objective  of  this  thesis  Is  to  develop  a  series  of 
application  programs  which  will  accept  a  S2k  schema  as  Input 
and  will  return  an  equivalent  IDMS  schema,  its  associated 
DMCL,  and  also  a  subschema  which  can  then  be  used  to  update 
the  IDMS  data  dictionary. 

Since  the  main  objective  of  this  thesis  Is  a  product 
that  will  aid  the  DBA  of  the  ASD  Computer  Center  In  the 
translation  of  a  S2k  schema  to  an  IDMS  schema,  the  following 
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user  requirements  were  established: 

1.  The  systems  must  be  Interactive  with  the  user. 

2.  The  system  will  take  a  S2K  schema  as  Input  and 
will  produce  an  IDMS  schema,  an  appropriate  DMCL,  and  an 
appropriate  subschema. 

3.  The  produced  software  must  allow  the  user  to  make 
changes  to  the  newly  generated  schema  easily. 

4.  The  produced  IDMS  schema,  DMCL,  and  subschema  must 
be  In  the  format  that  can  be  readily  used  as  Input  by  the 
supplied  IDMS  utilities. 

Each  of  these  requirements  Is  necessary  for  a  completely 
viable  system. 

The  following  assumptions  are  established  In  this 
thesis  effort: 

1.  The  S2k  schema  used  as  input  will  be  created  by 
using  the  supplied  S2k  UNLOAD  utility. 

2.  All  Information  needed  by  IDMS  for  a  record 
description  and  an  Item  description  will  be  found  In 
2  input  cards  or  less. 

3.  The  S2k  schema  Is  expected  to  be  In  the  form  of  80 


The  thesis  will  be  accomplished  by  performing  the 
following  steps: 

1.  Conduct  a  literature  search  for  previously 
conducted  work  in  the  area  of  translating  a  hierarchical 
database  to  a  network  database. 

2.  Develop  an  algorithm  to  accept  user  input  from  the 
terminal.  This  module  will  be  used  to  store  schema 
description  information,  file  description  information,  and 
area  description  information  into  a  file  which  will  be  used 
in  step  4. 

3.  Develop  an  algorithm  which  will  accept  a  S2k  schema 
as  input  and  produce  an  output  file  which  will  be 
used  to  create  the  IDMS  schema,  DMCL,  and  subschema. 
This  file  will  be  available  to  the  user  for  editing 
if  desired. 

4.  Develop  an  algorithm  which  will  take  the  files 
created  in  steps  1  and  3  as  input  and  produce  a 
schema  file,  a  DMCL  file,  and  a  subschema  file. 
These  files  will  be  used  as  input  to  the  supplied 
IDMS  programs  to  update  the  IDMS  data  dictionary.  A  user's 
manual  (Appendix  A)  will  be  supplied  upon  completion  of  the 
software. 
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II. 


Analysis 

This  chapter  will  present  a  brief  overview  of  SYSTEM 
2000  and  IDMS  including  a  discussion  of  their  respective 
physical  data  formats*  schema  characteristics,  and  host 
programming  languages. 

SYSTEM  2000 

SYSTEM  2000  is  a  database  management  system  developed 
and  maintained  by  Intel  Systems  Corporation.  This  DBMS  is 
operational  with  CDC,  IBM,  and  Univac  computer  systems. 

This  thesis  will  involve  only  the  IBM  version  of  SYSTEM 
2000.  In  this  version  the  IBM  Basic  Direct  Access  Method 
(BDAM)  is  used  for  physical  I/O  between  SYSTEM  2000  and  the 
direct  access  storage  device. 

Physical  Data  Format 

The  physical  storage  structure  of  SYSTEM  2000  consists 
of  seven  fixed-length-record  direct  (BDAM)  files.  The  first 
file  (Master  Record)  contains  Information  about  control  of 
the  database  structure  (database  name,  cycle,  passwords, 
etc...).  An  update  log  flag  for  the  database  Is  also 
Included  In  the  master  record.  File  2  (Definition  Table) 
contains  a  description  of  the  database  structure.  It 
describes  all  elements,  giving  characteristics  such  as 
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length,  type,  key  or  non-key,  and  other  structure 
Information.  File  3  (Distinct  Values  Table)  contains  a 
pointer  for  every  Item  that  has  been  designated  a  key  by  the 
user.  A  key  in  SYSTEM  2000  can  be  any  Item  that  the  user 
wishes  to  Improve  access  to.  If  the  Item  has  more  than  one 
value  assigned  to  It  then  the  pointer  points  to  the  Multiple 
Occurrence  Table,  otherwise  the  pointer  points  to  the 
Hierarchical  Table.  File  4  (Multiple  Occurrence  Table) 
contains  all  of  the  distinct  values  that  an  Item  can  have 
that  has  been  specified  in  the  Distinct  Values  Table.  File 
5  (Hierarchical  Table)  contains  a  pointer  for  every  Item 
whether  It  Is  a  key  Item  or  a  non-key  Item.  This  pointer 
contains  the  location  of  the  Item  in  the  Data  Table.  File  6 
(Data  Table)  contains  the  actual  fixed-length  data  records. 
File  7  (Extended  Field  Table)  contains  values  exceeding  the 
picture  width  allotted  for  textual  or  character  Items. 

(Ref  3:271) 

Schema 

The  database  schema  In  SYSTEM  2000  Is  organized  as  a 
hierarchical  tree  with  a  maximum  of  32  levels  and  a  maximum 
of  1000  schema  Items  (components).  Any  number  of  records 
can  be  specified  at  a  given  level,  and  any  number  of  Items 
can  be  defined  In  a  record.  The  user  must  decide  which  Items 
will  be  keys,  the  type  of  each  item,  and  the  picture  of  each 
Item.  The  DEFINE  processor  In  the  Data  Base  Definition 
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Facility  Is  used  to  define  the  schema.  DEFINE,  the  data 
definition  language  (DDL),  Is  used  to  declare  Individual 
components  of  the  database,  to  map  a  definition,  and  to 
modify  a  definition  either  before  or  after  a  database  has 
'been  loaded.  (Ref  4:3) 

Defining  a  schema  In  SYSTEM  2000  consists  of  assigning 
component  numbers,  component  labels,  specifying  record 
memberships  for  Items,  specifying  record  relationships  for 
records,  and  designating  the  item  type,  picture,  key  status, 
and  padding  for  schema  items.  Padding  Is  used  when  the  user 
wishes  to  reserve  physically  contiguous  index  space.  This 
can  make  the  use  of  the  Index  area  more  efficient  and  easier 
to  maintain.  Any  number  of  schema  items  may  be  declared  a 
key.  (Ref  4:104) 

String  and  Function  statements  are  also  allowed  In  the 
schema  definition.  Strings  allow  the  user  to  store  entire 
SCF  commands,  parts  of  SCF  commands,  or  a  series  of  SCF 
commands  in  their  schema.  Functions  allow  the  user  to  store 
arithmetic  expressions  and  to  specify  a  numeric  Item  type  for 
the  display  of  output.  Strings  and  Functions  also  require  a 
component  number  and  a  component  name.  Strings  and  Functions 
will  not  be  handled  by  this  thesis  effort.  (Ref  5:6-1) 


SYSTEM  2000  supports  Assembler,  COBOL,  FORTRAN,  and 
PL/1  as  its  host  programming  languages.  The  Programming 
Language  Extension  (PLEX)  is  a  Data  Manipulation  Language. 
PLEX  allows  users  of  the  previously  mentioned  languages  to 
use  SYSTEM  2000  within  their  application  programs.  The 
SYSTEM  2000  PLEX  commands  are  embedded  in  the  program  to 
locate  the  desired  Information  in  the  database.  SYSTEM  2000 
supplies  a  preprocessor  for  each  of  the  programming 
languages  which  will  then  replace  the  PLEX  instructions  with 
the  appropriate  CALL  statements.  The  output  from  the 
preprocessor  is  then  compiled  and  linked  before  execution. 
(Ref  6:1) 

IDMS 

The  Integrated  Database  Management  System  (IDMS)  is  an 
Implementation  of  the  CODASYL  Data  Base  Task  Group  Language 
specification.  It  operates  In  any  IBM  360/370  OS/DOS/VS 
environment  Including  30XX,  4300  series  with  FBA  devices, 
and  all  plug-compatible  mainframes.  The  IBM  Basic  Direct 
Access  Method  (BDAM)  or  Virtual  Sequential  Access  Method 
(VSAM)  Is  used  for  physical  I/O  between  IDMS  and  the  direct 
access  storage  device.  IDMS  provides  separate  facilities 
for  the  description  of  data  and  the  manipulation  of  data. 
This  separation  removes  the  data  description  function  from 
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the  scope  of  the  application  programs  and  allows  Integration 
of  all  data  and  data  relations  Into  a  database  m  h  1  c  h  Is 
common  to  all  application  programs  which  use  It. 


Physical  Data  Format 


The  physical  structure  of  a  database  in  IDMS  is 
determined  by  the  contents  of  the  database  keys,  by  the 
Database  Administrator's  definition  of  pages,  areas,  files, 
and  location  modes.  (Ref  7:2-26) 

IDMS  assigns  a  database  key  to  each  record  occurrence 
when  it  Is  entered  into  the  database.  This  key  remains 
unchanged  as  long  as  the  record  occurrence  remains  in  the 
database.  Each  record  occurrence  appears  as  two  components 
(Prefix  and  Data)  In  the  database.  The  Prefix  component 
contains  a  description  of  the  set  relationships  for  the 
record  occurrence.  In  the  form  of  pointers  (next,  prior,  and 
owner  records)  In  all  sets  in  which  the  record  Is  a  member. 
The  Data  component  contains  the  actual  value  of  the  record 
occurrence  in  the  form  specified  by  the  user.  (Ref  7:2-26) 

The  database  Is  subdivided  Into  a  number  of  blocks 
(pages).  A  page  can  contain  as  many  record  occurrences  as 
will  fit.  Variable-length  records  can  be  fragmented  across 
several  pages.  Each  page  has  a  unique  page  number  and  each 
record  within  a  page  Is  assigned  a  unique  line  number.  The 
record's  database  key  is  a  concatenation  of  the  page  and  line 
numbers.  (Ref  7:2-29) 


Pages  are  grouped  into  larger  subdivisions  called 
areas.  The  user  can  specify  one  or  more  areas,  but  the 
following  rules  must  be  satisfied: 

1.  The  pages  that  make  up  an  area  must  be  a  range  of 
'sequentially  numbered  pages. 

2.  Gaps  in  the  page  numbers  can  occur  between  pages. 

3.  A  page  number  can  only  belong  to  one  area. 

4.  All  record  occurrences  of  one  type  must  exist 
1 n  one  area. 

5.  All  pages  in  one  area  must  be  the  same  size. 

The  database  is  stored  as  one  or  more  files  or  data  sets  on 
a  direct  access  storage  device.  These  devices  are  formatted 
into  BDAM  blocks  or  VSAM  control  intervals.  Each  database 
page  corresponds  to  a  direct  access  block,  which  means  that 
data  transfers  are  always  performed  a  page  at  a  time. 

(Ref  7:2-30) 

The  assignment  of  a  record  to  a  particular  page  in  its 
area  is  determined  by  the  user's  specification  of  location 
modes.  CALC,  VIA,  DIRECT,  and  Physical  Sequential  are  the 
four  different  location  modes  which  can  be  specified  by  the 
user.  (Ref  7:2-31) 


Schema 


The  schema  Is  defined  by  means  of  the  schema  DDL,  which 
is  comprised  of  a  schema  description,  a  file  description,  an 
area  description,  a  record  description,  and  a  set 
description . 

The  schema  description  identifies  the  schema  and 
includes  any  number  of  comment  and  documentation  entries. 
The  file  description  identifies  the  database  files  and 
assigns  a  ddname  or  filename.  The  area  description 
Identifies  the  area  by  name,  specifies  the  page  range  of  the 
area,  and  maps  the  area  into  a  file  or  files.  Each  area  in 
the  database  must  be  included  in  the  area  description.  Each 
record  in  the  database  is  included  in  the  record 


description,  which  contains  the  record  name,  record  id, 
synonym,  location  mode,  within,  minimum  root,  minimum 
fragment,  call,  element  description,  and  copy.  For  each  set 
In  the  data  base,  the  set  description  specifies  the  name, 
order,  mode,  owner,  member,  and  copy.  Further  Information 
on  the  IDMS  schema  can  be  found  in  (Ref  7:4-7). 


Host  Pro< 


IDMS  supports  COBOL,  PL/1,  FORTRAN,  Assembler,  and  any 
other  programming  languages  supporting  a  CALL  statement  or 
equivalent.  Data  Manipulation  statements  may  be  included 
anywhere  within  the  procedure  coding  of  an  application 
program.  Before  compilation,  a  preprocessor  validates  and 
converts  all  DML  statements  into  CALL  statements  and  updates 
the  data  dictionary  accordingly. 


System  Descri pti on  &  Specification 


This  section  will  discuss  in  further  detail  the  user 
requirements  and  assumptions  that  were  established  in  this 
thesi  s . 

The  user  requirements,  as  stated  in  chapter  1, 
established  for  this  thesis  were: 

1.  The  system  must  be  interactive  with  the  user. 

2.  The  system  will  take  a  S2k  schema  as  input  and  will 
produce  an  IDMS  schema,  an  appropriate  DMCL,  and  an 
appropriate  subschema. 

3.  The  produced  software  must  allow  the  user  to  make 
changes  to  the  newly  generated  schema  easily. 

4.  The  produced  IDMS  schema,  DMCL,  and  subschema  must 
be  in  the  format  that  can  be  readily  used  as  input  by 
the  supplied  IDMS  utilities. 
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User  requirement  1  establishes  that  the  translation 
software  must  be  very  easy  to  use  and  should  prompt  the  user 
with  a  clear  distinct  question  if  any  information  is 
required  from  him.  All  communication  between  the  software 
and  the  user  should  be  conducted  via  a  CRT. 

User  requirement  2  establishes  that  the  translation 
software  must  do  the  translation  with  as  little  user 
intervention  as  possible.  The  software  should  require  a  S2k 
schema  definition  as  input  and  should  produce  an  IDMS 
schema,  DMCL,  and  subschema  for  that  particular  S 2 k  schema. 

User  requirement  3  establishes  that  the  translation 
software  must  create  an  intermediate  file  which  the  user  can 
modify,  if  desired  via  the  editor,  before  the  final  schema, 
DMCL,  and  subschema  have  been  produced.  These  changes 
include  changing  record  names,  changing  item/element  names, 
changing  record  id  numbers,  changing  picture  definitions, 
changing  owner/member  relations,  changing  set  names,  and 
changing  location  modes  for  a  particular  set. 

User  requirement  4  establishes  that  the  produced  IDMS 
schema,  DMCL,  subschema  should  be  ready  for  use  as  input  to 
the  supplied  IDMS  utilities  for  updating  of  the  IDMS  data 
dictionary  upon  completion  of  the  translation  software.  No 
syntax  errors  should  be  encountered  due  to  the  translation 
software.  Checking  for  IDMS  reserved  words  does  NOT  fall 
into  this  category. 


The  assumptions,  as  stated  in  chapter  1,  established 
for  this  thesis  were: 

1.  The  S2k  schema  used  as  input  will  be  created  by 
using  the  supplied  S2k  UNLOAD  utility. 

2.  All  information  needed  by  IDMS  for  a  record 
description  and  an  item  description  will  be  found  in 
2  input  cards  or  less. 

3.  The  S2k  schema  is  expected  to  be  in  the  form  of  80 
character  records. 

Assumption  1  establishes  that  the  S2k  schema  used  as 
input  to  the  translation  software  must  be  formed  by  the  S2k 
UNLOAD  utility.  The  UNLOAD  utility  formats  the  schema  in  a 
certain  fashion  which  will  be  expected  by  the  translation 
software.  If  the  schema  is  NOT  created  by  the  UNLOAD 
utility,  errors  may  arise. 

Assumption  2  establishes  that  the  necessary  information 
needed  for  an  IDMS  schema  will  be  found  in  2  cards  or  less. 
The  S2k  UNLOAD  utility  uses  indentation  to  make  the  schema 
easy  to  read  by  the  user.  This  indentation  could  cause 
numerous  blank  characters  to  be  placed  at  the  beginning  of  a 
record.  The  translation  software  will  allow  2  input  cards 
per  description. 

Assumption  3  establishes  that  the  S2k  schema  must  be  in 
the  form  of  80  character  records.  The  S2k  UNLOAD  utility 
allows  the  user  to  specify  the  desired  record  size, 
therefore  the  user  should  request  80  as  the  record  size. 


Requirement  Analysis 

The  S2k  schema  contains  record  names,  record  element 
names  and  descriptions,  along  with  information  showing  the 
* hierarchical  tree  representation  of  the  records  in  the 
database.  No  information  concerning  virtual  records  or  the 
linking  of  two  or  more  hierarchical  trees  is  available  in  the 
schema.  For  this  reason  the  resulting  IDMS  schema  will  also 
show  the  database  in  a  hierarchical  tree  representation. 
However,  flexibility  should  be  Incorporated  in  the  design  to 
allow  for  the  different  implementations  of  the  hierarchical 
model . 

The  IDMS  schema  requires,  in  addition  to  the 
Information  contained  in  the  S2k  schema,  the  IDMS  schema 
name,  author's  name,  database  file  name,  the  type  of  storage 
device  where  the  database  Is  stored,  the  IDMS  area  name  and 
Its  associated  pages,  and  finally  the  desired  record  id 
number  of  the  first  record  In  the  schema  along  with  the  id 
number  Increment  for  the  following  records.  The  associated 
DMCL  and  subschema  will  require  the  schema  Information  along 
with  the  desired  DMCL  and  subschema  names.  The  additional 
Information  for  the  schema,  DMCL,  and  subschema  will  need  to 
be  provided  by  the  DBA. 

Figure  II  -  1  is  the  top  level  DFD  for  the  schema 


translator  system.  Appendix  B  contains  the  detailed  DFD's  of 
the  system  and  Appendix  D  contains  the  data  dictionary. 


DBA  Input 


Figure  II 


Context  Diagram  for  this  Thesis 


III.  Design  and  Implementation 


Introduction 


This  chapter  will  present  the  software  engineering 
tools  used  and  why,  a  discussion  of  the  design 
considerations,  a  brief  description  of  each  of  the  modules, 
and  a  discussion  of  the  Implementation. 

Software  Engl neerl ng  Tools 

The  software  engineering  tool  used  In  this  thesis  was 
structure  charts.  Structure  charts  were  used  as  opposed  to 
the  Structured  Analysis  and  Design  Technique  (SADT)  method 
or  the  HI PO  (Hierarchy,  plus  Input,  Process,  Output)  because 
structure  charts  are  easier  to  use,  show  a  hierarchical 
representation,  and  show  data  and  control  flow. 

Figure  III  -  1  Is  the  top  level  structure  chart  for  the 
schema  translator  system.  Appendix  C  contains  the  detail 
structure  charts  and  Appendix  D  contains  the  data  dictionary. 

Design  Considerations 

Most  hierarchical  DBMS  supply  an  UNLOAD  facility  which 


will  place  the  schema  into  a  sequential  data  file  in  a 
standard  format.  A  common  format  will  aid  In  the  gathering 
of  information  from  the  hierarchical  schema. 


The  mapping  of  the  record  names  and  element  names 
will  require  research  concerning  the  restraints  placed  upon 
them  by  the  two  database  management  systems.  For  example, 
S 2k  allows  the  record  and  element  names  to  be  a  maximum  of 
*256  characters,  where  IDMS  restricts  record  names  to  be  16 
characters  or  less  and  element  names  to  be  32  characters  or 
less. 

Element  descriptions  can  a1  >o  pose  a  problem.  Some 
DBMS  have  special  element  descriptions  specifically  for  their 
particular  system.  For  example,  S2k  has  a  DATE  description. 
This  type  of  description  Is  used  specifically  for  storing 
date  Information  In  the  database.  IDMS  does  not  support  this 
description,  therefore  the  DATE  description  must  be  mapped 
Into  an  acceptable  IDMS  description. 

The  CODASYL  model  also  requires  "set"  information  to  be 
included  in  the  CODASYL  schema.  If  the  hierarchical  schema 
does  not  contain  virtual  records  or  redundant  data,  then  the 
mapping  will  be  a  hierarchical  tree  representa i on  In  the 
CODASYL  DBMS.  This  type  of  arrangement  requires  that  the  top 
level  record  be  accessed  by  the  "CALC"  mode,  and  all  other 
records  of  the  tree  to  be  accessed  by  the  "VIA"  mode.  The 
set  names  will  need  to  be  generated  or  received  from  the  DBA 
by  some  means.  If  virtual  records  or  redundant  records  do 
exist,  then  the  appropriate  type  of  set  must  be  generated  to 
replace  the  virtual  record  or  to  remove  the  need  of  having 
redundant  data  In  the  database. 
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Additional  Information  not  found  In  the  hierarchical 
schema  may  be  required  for  the  CODASYL  schema.  This 
Information  must  be  received  from  the  DBA. 


Schema  Translator 


t  It  I  MS' 


1.  User_Definition_File 

2.  CODASYL_Information_File 

3.  CODASYL_Schema_File 

4.  CODASYL_Storage_Schema_File 

5.  CODASYL_Subschema_File 

Figure  III  -  1.  Top  level  Structure  Chart  for  this  Thesis 
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Module  Descriptions 


The  three  main  modules  will  now  be  discussed  Including 
their  sub-modules. 

Usrprmp  is  designed  to  prompt  the  DBA  for  the  IDMS 
schema  name,  schema  version  number,  author  name,  author 
phone  number,  IDMS  file  name,  the  device  for  which  the  file 
resides,  IDMS  area  name,  starting  and  ending  page  numbers  of 
the  area,  IDMS  DMCL  name,  and  the  IDMS  subschema  name.  This 
Information  will  be  stored  in  a  file  (USERDEFS)  which  will 
be  used  as  Input  by  IDMSOUT  for  the  building  of  the  IDMS 
schema,  DMCL,  and  subschema.  Usrprmp  will  put  the 
appropriate  prompt  request  and  will  then  call  Rdwrit.  This 
loop  will  continue  until  all  of  the  necessary  Information 
has  been  received. 

Rdwrit  will  be  the  module  responsible  for  reading  the 
input  buffer  from  the  terminal  in  response  to  a  prompt 
request.  Rdwrit  will  then  take  the  Information  and  write  it 
to  the  appropriate  external  file  which  will  be  used  at  a 
later  time. 

Rdschm  is  designed  to  accept  a  S2k  schema  as  Input 
(S2KSCHEM)  and  to  produce  as  output  the  Intermediate  file 
(IDMSMODL)  which  can  be  edited  by  the  DBA  to  make  any 
necessary  changes.  The  unchanged  file  will  be  In  a  valid 
format  to  generate  an  IDMS  schema,  DMCL,  and  subschema  if 
desired  by  the  DBA.  Rdschm  will  call  Rdbuff,  Frstrec, 


Readout,  Getnum,  Getname,  Gettype,  and  Schmbl  to  complete 
Its  assigned  task  and  will  terminate  when  the  end-of-flle 
marker  of  the  S2k  schema  file  Is  encountered. 

Rdbuf f  Is  designed  to  read  in  all  of  the  Information 
'pertaining  to  a  record  or  Item  definition.  The  information 
will  be  found  in  two  cards  or  less.  Rdbuff  will  call 
Chkpar,  Findpat,  Nonblnk  to  accomplish  its  task. 

Chkpar  is  designed  to  check  for  matching  left  and  right 
parenthesis.  If  all  of  the  parenthesis  have  matches,  then 
Chkpar  will  Inform  Rdbuff  not  to  read  another  card, 
otherwise  Rdbuff  will  be  informed  to  read  another  input 
card. 

Findpat  Is  designed  to  find  a  string  of  characters  in  a 
particular  character  string  at  a  given  starting  position  in 
the  character  string.  Findpat  will  return  the  position  of 
the  desired  pattern  in  the  character  string  if  it  is  found, 
or  Findpat  will  return  a  zero  value  if  the  string  is  not 
found.  This  procedure  is  used  by  various  other  modules 
throughout  Rdschm. 

Nonblnk  is  designed  to  find  the  next  nonblnk  character 
position  in  a  given  character  string  starting  with  a  given 
position  in  the  string.  Nonblnk  will  return  the  position  if 
a  nonblnk  character  is  found,  otherwise  Nonblnk  will  return 
a  zero  value  to  the  calling  module.  Nonblnk  is  used  by  many 
modules  throughout  Rdschm. 


Frstrec  Is  designed  to  find  the  name  of  record  zero  In 
the  given  S2k  schema.  Frstrec  uses  Flndpat  and  Nonblnk  to 
accomplish  Its  task. 

Readout  Is  designed  to  write  the  IDMS  record 
'Information  to  the  external  file  (S2KTEMP)  which  will  be 
used  later,  and  also  to  write  a  log  report  for  the  user 
showing  the  current  S 2k  schema  Information  record  along  with 
the  created  IOMS  schema  Information  record. 

Getnum  Is  designed  to  find  the  S2k  component  number  of 
the  current  S2k  schema  record  being  processed.  Getnum  will 
use  Nonblnk  and  Flndpat  to  accomplish  its  task. 

Getname  Is  designed  to  find  the  name  of  the  current  S2k 
schema  record  being  processed.  Getname  will  use  Nonblnk  and 
Flndpat  to  accomplish  its  task. 

Gettype  Is  designed  to  determine  whether  the  current 
S  2  k  schema  record  being  processed  Is  a  S2k  record 
description,  or  a  S2k  item  description  with  an  integer 
picture  definition,  or  a  S2k  item  description  with  a  decimal 
picture  definition,  or  a  S2k  item  description  with  a  money 
picture  definition,  or  a  S2k  item  description  with  a  date 
picture  definition,  or  a  S2k  item  description  with  a  text 
picture  definition,  or,  finally,  if  it  is  a  $2k  item 
description  with  a  character  picture  definition.  Gettype 
will  call  Flndpat,  Recfnd,  Intfnd,  Chrfnd,  Datefnd,  Decfnd, 
and  Money  depending  upon  which  is  the  appropriate  action  to 


Recfnd  Is  designed  to  build  an  output  record  containing 
the  necessary  Information  for  an  IDMS  record  description. 
Recfnd  will  insure  that  the  record  name  is  16  characters  or 
less  and  that  all  Invalid  characters  in  the  name  have  been 
*  replaced  by  a  hyphen.  Recfnd  will  use  Findpat  to  accomplish 
this  task. 

Intfnd  is  designed  to  build  an  output  record  containing 
a  correctly  formed  IDMS  item  description  of  a  S2k  item 
description  with  a  S2k  integer  picture  definition.  Intfnd 
will  insure  that  the  item  name  is  32  characters  or  less  and 
that  all  invalid  characters  in  the  name  have  been  replaced  by 
a  hyphen.  Intfnd  will  use  Findpat  to  accomplish  this  task. 

Chrfnd  is  designed  to  build  an  output  record  containing 
a  correctly  formed  IDMS  item  description  of  a  S2k  item 
description  with  a  S2k  character  picture  definition.  Chrfnd 
will  insure  that  the  item  name  is  32  characters  or  less  and 
that  all  of  the  invalid  characters  have  been  replaced  by  a 
hyphen.  Chrfnd  will  use  Findpat  to  accomplish  this  task. 

Datfnd  is  designed  to  build  an  output  record  containing 
a  correctly  formed  IDMS  item  description  of  a  S2k  item 
description  with  a  S2k  date  picture  definition.  Datfnd  will 
Insure  that  the  item  name  is  32  characters  or  less  and  that 
all  Invalid  characters  have  been  replaced  by  a  hyphen. 
Datfnd  will  use  Findpat  to  accomplish  this  task. 


Decfnd  is  designed  to  build  an  output  record  containing 
a  correctly  formed  IDMS  item  description  of  a  S 2 k  item 
description  with  a  S2k  decimal  picture  definition.  Decfnd 
will  insure  that  the  item  name  is  32  characters  or  less  and 
.that  all  invalid  characters  in  the  name  have  been  replaced  by 
a  hyphen.  Decfnd  will  use  Findpat  to  accomplish  this  task. 

Money  is  designed  to  build  an  output  record  containing 
a  correctly  formed  IDMS  item  description  of  a  S2k  item 
description  with  a  S2k  money  picture  definition.  Money  will 
insure  that  the  item  name  is  32  characters  or  less  and  that 
all  invalid  characters  have  been  replaced  by  a  hyphen.  Money 
will  use  Findpat  to  accomplish  this  task. 

Schmbl  is  designed  to  be  the  driver  module  responsible 
for  using  the  file  (S2KTEMP)  created  by  Readout  as  input  to 
produce  the  intermediate  file  (IDMSMODL)  which  will  be  edited 
by  the  DBA.  This  file  will  contain  the  record  description 
information  along  with  its  respective  location  mode 
information,  as  well  as  all  of  the  items  which  make  up  each 
record.  Schmbl  will  use  Getinfo  and  Bildlog  to  accomplish 
this  task. 

Getinfo  is  designed  to  place  all  of  the  information 
contained  In  the  file  S2KTEMP  into  memory  for  future 
reference  by  the  other  modules  which  make  up  Schmbl. 
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Bi 1 dl og  Is  designed  to  actually  construct  the  IDMSMODL 
file.  Bildlog  will  use  Recdum  and  Getmode  to  complete  this 
task . 

Recdum  is  designed  to  build  a  "dummy  item"  if  the 
^current  S2k  record  has  no  items  which  belong  to  it.  S2k 
supports  dummy  records  where  I D M S  does  not. 

Getmode  is  designed  to  determine  whether  a  given 
record's  location  mode  is  CALC  or  VIA.  If  the  location  mode 
is  determined  to  be  VIA  then  Calcrec  is  called,  otherwise 
Getmode  will  build  the  correct  output  information  for  a 
location  mode  of  CALC. 

Calcrec  is  designed  to  build  the  necessary  output 
record  for  a  location  mode  of  VIA  for  a  given  record.  A 
unique  set  name  will  be  created  as  well  as  the  owner  and 
member  information. 

I  dmsout  is  designed  to  use  the  file  IDMSMODL  as  input 
to  produce  the  IDMS  schema  file,  DMCL  file,  and  the  subschema 
file.  Idmsout  will  call  Schmdes,  Filedes,  Areades,  Bildrec, 
Bildset,  DMCL,  and  Subschm  to  complete  its  assigned  task. 

Schmdes  is  designed  to  call  the  module  Getdate  and  to 
use  the  file  USERDEFS  as  input  to  produce  the  schema 
description  section  of  the  IDMS  schema.  The  produced  portion 
of  the  schema  will  be  written  to  the  file  SCHEMA. 

Getdate  is  designed  to  return  the  current  date  to  the 
Schmdes  module. 


Ill  -  9 


f 1 1 1  d£l  ls  designed  to  use  the  USERDEFS  file  as  input 
to  produce  the  file  description  section  of  the  IDMS  schema. 
The  produced  portion  of  the  schema  will  be  written  to  the 
file  SCHEMA. 

Areades  is  designed  to  use  the  file  USERDEFS  as  input 
to  produce  the  area  description  section  of  the  IDMS  schema. 
The  produced  portion  of  the  code  will  be  written  to  the  file 
SCHEMA. 

B  11 dr e c  is  designed  to  build  the  record  description 
section  of  the  IDMS  schema.  Bildrec  will  call  Recinfo  and 
Itminfo  to  accomplish  this  task. 

Recinfo  is  designed  to  use  the  file  IDMSMODL  as  input 
to  build  the  record  information  portion  for  each  record  in 
the  IDMS  schema.  Information  included  is  the  record  name, 
record  id  number,  record  location  mode,  and  its  associated 
set  name  if  the  location  mode  is  VIA.  Recinfo  will  call 
Loadrec  and  Loadset  to  accomplish  this  task.  The  produced 
information  will  be  stored  in  the  file  SCHEMA. 

Loadrec  is  designed  to  store  each  record  name,  next 
pointer  number,  and  prior  pointer  number  into  memory  for 
future  use. 

Loadset  is  designed  to  store  each  set  name,  its  owner, 
and  its  member  into  memory  for  future  use. 


I  tin  i  nf  o  is  designed  to  build  the  item  information 
portion  of  each  record  in  the  record  description  section  of 
the  IDMS  schema.  Itminfo  will  accept  the  file  IDMSMODL  as 
input  and  will  store  the  produced  information  in  the  file 
SCHEMA. 

B  ij.  1 1  1S  designed  to  build  the  set  description 
section  of  the  IDMS  schema.  Bildset  will  call  Dbkey  to 
accomplish  its  assigned  task. 

D b k e ^  is  designed  to  produce  the  owner,  member,  next 
pointer,  and  prior  pointer  for  each  set  in  the  schema.  The 
produced  output  will  be  stored  in  the  file  SCHEMA. 

DMCL  is  designed  to  produce  the  IDMS  DMCL  source  code 
to  be  used  as  input  by  the  DBA  for  the  associated  schema. 
The  produced  output  will  be  stored  in  the  file  DMCL. 

S u b s c h m  is  designed  to  produce  the  IDMS  subschema 
source  code  to  be  used  by  the  DBA  for  the  associated  schema. 
The  produced  output  will  be  stored  in  the  file  SUBS. 

Implementation 


USRPRMP ,  RDSCHM,  and  IDMSOUT  were  implemented  on  a 
National  Semiconductor  model  7000  computer  at  the  ASD 
Computer  Center.  This  computer  is  one  of  the  many  IBM  370 
compatible  computers  that  is  available  in  today's  market.  I 
was  restricted  to  the  IBM  architecture  because  the  versions 
of  S2k  and  IDMS  were  also  IBM. 
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The  high  level  language  chosen  to  code  the  software  was 
PL/1.  My  familiarity  with  the  language  and  the  string 
manipulation  features  provided  by  PL/1  were  the  deciding 
factors  in  the  selection  of  the  language. 

Date,  Index,  Length,  Substring,  and  Translate  were  the 
PL/1  built-in  functions  used  in  the  implementation  of  this 
thesi s . 

Date  returns  a  character  string  of  length  six  composed 
of  digits.  The  first  pair  of  digits  are  the  current  year, 
the  second  pair  the  current  month,  and  the  final  pair  the 
current  day.  (Ref  8:437) 

Index  is  used  to  find  a  certain  pattern  of  characters 
in  a  parent  string  of  characters.  Index  will  return  the 
integer  position  of  the  character  pattern  if  it  is  found, 
otherwise  it  will  return  a  zero.  (Ref  8:434) 

Length  will  return  the  number  of  bits  or  characters  in 
a  given  parent  string.  (Ref  8:434) 

S  u ]>I  1 1 1  US  extracts  a  substring  of  length  j  from  the 
parent  string  starting  in  the  ith  position.  If  no  j  is 
given,  the  remainder  of  the  string  from  i  on  is  assumed. 

(Ref  8:434) 

Translate  returns  a  character  string  r  of  the  same 
length  as  the  source  string  s.  However,  any  character  in  s 
which  is  included  in  the  string  b  is  translated  to  the 
character  which  appears  in  the  corresponding  position  of  the 
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string  a.  Thus  a  and  b  should  be  of  the  same  length,  and  the 
pairs  of  characters  in  strings  a  and  b  represent  the  before 
and  after  states  of  the  translation.  (Ref  8:434) 
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''Implementation  Changes 

Implementation  of  the  software  went  according  to  plan 
with  no  major  difficulties.  The  software  worked  as  required 
by  the  DBA  with  no  failures  experienced.  Execution  time  was 
very  good  since  the  software  was  running  in  the  foreground  to 
meet  the  user  requirement  of  being  interactive.  However  it 
was  noted  that  once  the  files  were  given  to  the  translator 
software,  there  was  no  need  to  continue  running  in  the 
foreground  during  the  actual  translation  of  the  S2k  schema. 
No  further  input  would  be  required  from  the  user,  therefore 
the  translation  should  be  executing  in  the  background, 
allowing  better  utilization  of  the  CPU.  Satisfying  this 
request  prompted  the  development  of  TSO  command  procedures, 
which  would  prompt  the  user  for  the  necessary  information, 
build  the  appropriate  JCL  for  the  particular  job,  and  then 
submit  the  job  in  the  background  for  execution.  This  method 
of  operation  gave  the  user  more  efficie.,*  utilization  of  the 
CPU  and  the  interactive  capability. 
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case  of  the  Input  Information  exceeding  more  than  one  card. 

Test7  will  check  Rdschm  for  the  ability  of  finding  the 
name  of  the  S2k  record  zero.  This  information  is  located  in 
the  user  information  section  of  the  S2k  schema  as  opposed  to 
'the  component  information  of  the  schema. 

Test8  will  check  Rdschm  for  the  ability  of  finding  all 
S2k  schema  statements  which  contain  the  system  separator  (*). 
The  separator  is  the  key  character  used  in  determining 
whether  or  not  a  statement  contains  needed  schema 
information.  All  statements  which  do  not  meet  this 
requirement  should  be  discarded.  This  test  does  not  allow 
for  Information  spanning  across  two  cards. 

Test9  will  test  Rdschm  for  the  ability  of  retrieving 
component  Information  If  it  spans  across  two  cards.  The  key 
here  is  balanced  parenthesis.  Each  complete  S2k  component 
statement  will  have  balanced  parenthesis. 

Test  10  will  test  Rdschm  for  the  ability  of  merging  the 
Information,  If  It  spans  across  two  cards,  into  one 
continuous  card.  As  stated  previously,  the  S2k  UNLOAD 
utility  will  Indent  Information  to  make  it  more  readable  for 
the  user.  However,  this  will  put  blanks  In  the  middle  of  the 
component  Information  when  it  is  merged.  The  blanks  will 
then  have  to  be  removed  to  get  the  information  correctly. 

Testll  will  test  Rdschm  for  the  ability  of  finding  the 
correct  S2k  component  number. 

Testl2  will  test  Rdschm  for  the  ability  of  finding  the 
correct  S2k  component  name. 


Testl3  will  test  Rdschm  for  the  ability  of  determining 


whether  a  component  is  a  record  or  an  item. 

Testl4  will  test  Rdschm  for  the  ability  of  truncating 
the  current  component  name  based  on  whether  the  current 
component  is  a  record  or  an  item.  If  the  component  is  a 
record,  then  the  current  component  name  should  be  truncated 
to  16  characters  or  less,  otherwise  the  current  component  is 
an  item  and  the  name  should  be  truncated  to  32  characters  or 
less.  In  both  cases  all  illegal  characters  found  in  the  name 
should  be  replaced  with  a  hyphen  with  th^  exception  that  the 
name  cannot  end  with  a  hyphen. 

Test  15  will  test  Rdschm  for  the  ability  of  determining 
the  owner  of  a  given  component.  If  the  current  component  is 
a  record,  then  the  owner  will  be  the  record  of  the  previous 
level  in  the  hierarchical  tree.  Otherwise  the  owner  will  be 
the  record  of  which  the  current  item  component  is  a  member. 

Testl6  will  test  Rdschm  for  the  ability  of  taking  an 
S2k  item  component  and  determining  whether  It  is  an  integer 
item,  a  decimal  item,  a  date  item,  a  money  item,  a  text  item, 
or  a  character  Item. 

Testl7  will  test  Rdschm  for  the  ability  of  translating 
the  current  S2k  item  picture  description  to  a  valid  IDMS 
picture  description  based  on  the  S 2k  component  type. 

Testl8  will  test  Rdschm's  log  and  S2KTEMP  file.  The 
log  should  contain  each  S 2k  component  and  its  associated  IDMS 
translation.  Tests  5-17  were  verified  by  reviewing  the  log 
after  each  test.  The  S2KTEMP  file  contains  only  the  IDMS 
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translation  of  the  S2k  components  and  will  be  used  as  input 
by  the  remainder  Rdschm  modules.  This  file  will  be  verified 
by  editing  the  file. 

Testl9  will  test  Rdschm  for  the  ability  of  reading  the 
'S2KTEMP  file  and  storing  the  information  into  memory. 

Test20  will  test  Rdschm  for  the  ability  of  determining 
whether  a  record  has  no  members.  If  the  record  has  no 
members  then  a  dummy  item  must  be  generated  for  the  record. 

Test21  will  test  Rdschm  for  the  ability  of  determining 
the  location  mode  for  each  the  records  in  the  schema.  The 
first  record  ( S 2 k  record  zero)  should  be  assigned  the 
location  mode  CALC  with  the  first  item  of  the  record  being 
used  as  the  hashing  value.  All  other  records  will  be 
assigned  the  location  mode  VIA. 

Test22  will  Rdschm  for  the  ability  of  generating  unique 
set  names  for  each  of  the  records  assigned  the  location  mode 
of  VIA. 

Test23  will  test  Rdschm  for  the  ability  of  finding  the 
owner  and  member  record  names  for  each  of  the  sets  being 
built  for  the  location  mode  VIA. 

Test24  will  review  the  IDMSMODL  file  created  by  Rdschm. 
The  first  record  in  the  IDMSMODL  should  contain  the  number  of 
records  and  items  in  the  file.  The  remaining  IDMSMODL  file 
should  be  comprised  of  four  types  of  80  character  records 
TYPE1,  TYPE2,  TYPE3,  and  TYPE4.  TYPE  1  represents  the  record 
description,  TYPE2  represents  record  location  mode  of  CALC, 
TYPE 3  represents  location  mode  of  VIA,  and  TYPE4  represents 
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the  items  of  each  of  the  records.  The  format  of  these 


records  should  be: 


TYPE  1  -  col 

1 

1  R‘ 

1 ength 

1 

col 

3 

IDMS  record  name 

1 ength 

16 

col 

20 

IDMS  record  number 

length 

4 

col 

25 

S2k  record  number 

length 

4 

col 

30 

S 2k  owner  record  number 

1 ength 

4 

col 

35 

record  item  pointer 

1 ength 

4 

TYPE2  -  col 

1 

*C’ 

length 

1 

col 

5 

Calc  item  id 

1 ength 

32 

TYPE3  -  col 

1 

'V* 

1 ength 

1 

col 

5 

set  name 

length 

16 

col 

25 

owner  name 

1 ength 

16 

col 

45 

member  name 

1 ength 

16 

TYPE4  -  col 

1 

•  I ' 

1 ength 

1 

col 

3 

$2k  component  number 

1 ength 

4 

col 

8 

IDMS  item  name 

1 ength 

32 

col 

41 

IDMS  item  description 

length 

28 

col 

70 

S2k  record  number 

length 

4 

file  should 

be 

checked  by  editing  the 

file 

f< 

verification. 


Idmsout  will  be  tested  by  performing  the  following 
group  of  test: 

Test25  will  test  Idmsout  for  the  ability  of  generating 
the  schema  description  section  of  the  IDMS  schema. 

Test26  will  test  Idmsout  for  the  ability  of  generating 
the  area  description  section  of  the  IDMS  schema. 

Test27  will  test  Idmsout  for  the  ability  of  generating 
the  record  description  section  of  the  IDMS  schema. 


Test28  will  test  Idmsout  for  the  ability  of  generating 
the  DMCL  file  of  the  current  IDMS  schema. 

Test29  will  test  Idmsout  for  the  ability  of  generating 
the  subschema  file  for  the  current  IDMS  schema. 

Test30  will  be  an  execution  of  the  IDMS  supplied  schema 
compile  program  using  the  Idmsout  produced  SCHEMA  file  as 
input. 

Test31  will  be  an  execution  of  the  IDMS  supplied  DMCL 
compile  program  using  the  Idmsout  produced  DMCL  file  as 
input. 

Test32  will  be  an  execution  of  the  IDMS  supplied 
subschema  program  using  the  Idmsout  produced  SUBS  file  as 
input. 

Test33  will  consist  of  logging  onto  the  IDMS  DBMS  and 
verifying  that  the  newly  generated  schema  is  in  fact 
contained  in  the  data  dictionary. 

Test  Results 

The  individual  modules  of  the  thesis  were  tested  in  the 
previously  defined  fashion  and  were  then  compiled  together 
producing  the  final  product  of  the  thesis.  Two  S2k  schemas 
were  used  in  the  final  series  of  tests. 

Test  schema  one  contained  all  of  the  different  types  of 
S2k  records  and  items,  but  did  not  contain  record  or  item 
descriptions  that  exceeded  one  card  of  the  S2k  schema  input 


I* 5 


file.  Test  schema  one  produced  no  errors  in  the  translation, 
but  two  errors  were  encountered  when  the  IDMS  schema  compiler 
found  two  items  having  IDMS  reserved  words  as  item  names. 
The  DBA  then  changed  the  names  in  the  IDMSMODL  file  and 
Executed  Idmsout  once  again.  The  produced  IDMS  schema,  DMCL, 
and  subschema  were  readily  accepted  by  the  IDMS  database 
system. 

Test  schema  two  contained  all  of  the  different  types 
of  S2k  records  and  items  plus  record  and  item  descriptions 
that  exceeded  one  card  of  the  S2k  schema  input  file.  Test 
schema  two  produced  no  errors  in  the  translation  and  the 
produced  IDMS  schema,  DMCL,  and  subschema  were  readily 
accepted  by  the  IDMS  database  system.  The  DBA  then  edited 
the  IDMSMODL  file  and  changed  a  record  location  mode  from  VIA 
to  CALC.  Idmsout  was  then  executed  producing  no  errors  and 
the  produced  IDMS  schema,  DMCL,  and  subschema  were  readily 
accepted  by  the  IDMS  database  system. 

Upon  completion  of  executing  the  supplied  IDMS  batch 
jobs  using  the  files  produced  by  the  thesis  as  input,  the  DBA 
then  logged  onto  the  IDMS  system  to  verify  that  the  newly 
generated  schema  and  subschema  were  contained  in  the  IDMS 
data  dictionary.  A  sample  of  the  USERDEFS  file,  IDMSMODL 
file,  Log  file,  SCHEMA  file,  DMCL  file,  and  SUBS  file  from 
test  schema  one  can  be  found  in  Appendix  6. 
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Conclusions  and  Recommendations 


This  chapter  will  present  the  conclusions  and 
recommendations  of  this  thesis. 

Conclusions 

The  objective  of  this  thesis  was  to  develop  a  series  of 
application  programs  which  would  accept  a  S2k  schema  as  input 
and  return  an  equivalent  IDMS  schema,  its  associated  DMCL, 
and  subschema  as  output.  The  developed  software  was  to  be  as 
interactive  with  the  user  as  possible,  but  also  leave  the  DBA 
with  flexibility. 

The  developed  programs  USRPRMP,  RDSCHM,  and  IDMSOUT 
were  coded  In  the  high  level  language  PL/1  on  an  IBM 
compatible  computer  at  the  ASD  Computer  Center.  The  IBM 
architecture  was  chosen,  because  the  versions  of  S2k  and  IDMS 
being  used  were  also  under  the  IBM  architecture.  These 
programs  satisfied  all  of  the  previously  mentioned 
requirements  except  for  being  interactive  with  the  user. 

Time  Sharing  Option  (TSO)  command  programs  (Appendix  F) 
were  created  to  execute  the  developed  batch  programs  from  the 
terminal,  and  thusly  satisfying  the  interactive  requirement. 
The  TSO  command  programs  after  communicating  with  the  user 
submit  the  appropriate  application  program  in  the  batch  mode. 


This  type  of  arrangement  saves  a  tremendous  amount  of 
computer  resources  as  compared  to  executing  the  entire 
process  in  the  foreground. 

Recommendations 

This  thesis  effort  opens  up  the  areas  of  Data 
translation.  Query  translation,  and  Program  translation  from 
S2k  to  IDMS  as  future  thesis  efforts.  The  DBA  has  the 
capability  of  translating  the  schemas  as  a  result  of  this 
thesis,  but  does  not  have  any  way  to  use  the  existing  S  2  k 
data,  queries,  or  programs  under  IDMS. 

The  translation  of  the  existing  S2k  data  will  require 
the  unloading  of  the  S2k  data  file  into  a  sequential  file, 
the  stripping  of  the  dollar  sign  from  the  S2k  money  items, 
the  stripping  of  the  slashes  from  the  S2k  date  items,  and 
then  finally  the  loading  of  the  data  into  the  IDMS  system. 
The  programmer  should  review  chapter  2  on  how  the  data  is 
stored  in  S2k  and  should  review  the  IDMSMODL  file.  This  file 
will  show  the  relationship  between  the  S2k  record  component 
number  and  its  IDMS  counterpart.  This  information  will  be 
needed  since  the  S2k  component  number  is  contained  in  the  S 2 k 
unloaded  data  file. 

The  translation  of  the  S2k  application  programs  will 
require  the  familiarity  of  the  S2k  DML  and  the  IDMS  DML.  The 
thesis  student  will  also  have  to  be  familiar  with  the 
IDMSMODL  file.  The  IDMSMODL  file  will  show  the  relationship 


The  translation  of  the  S 2 k  online  queries  will  require 
the  user  to  be  familiar  with  the  S2k  and  IDMS  online  query 
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Appendix  A 

Automated  Hierarchical  -  CODASYL  Database  Interface 
Schema  Translator  User's  Guide 

Introduction 

The  schema  translation  software  as  described  in  this 
thesis  is  intended  to  run  on  an  IBM  compatible  mainframe 
under  the  control  of  MVS  3.8  .  The  software  for  the  actual 
schema  translation  is  written  in  PL/1  and  the  command  files 
used  to  execute  the  software  are  written  in  TSO  command 
language. 

This  system  is  designed  to  be  used  primarily  with  a  IBM 
3270  CRT  as  the  terminal  device,  but  will  support  other 
terminals  with  a  minor  modification  to  the  TSO  user's 
profile. 

The  function  of  the  Schema  Translator  software  is  to 
provide  the  DBA  with  an  IDMS  schema,  DMCL,  and  subschema  for 
an  already  existing  S2k  schema.  Three  programs  USRPRMP, 
RDSCHM,  and  IDMSOUT  make  up  the  Schema  Translator  software. 

Before  using  this  software,  the  user  should  be  familiar 
with  S2k ,  IDMS,  TSO  editor,  TSO  CLISTS,  and  IBM  partitioned 
data  sets. 


User  Preparation 


Before  executing  the  Schema  Translator  software,  the 
user  must  do  the  following: 

1.  Unload  the  desired  S2k  schema  into  a  file  using  the 
S2k  supplied  UNLOAD  utility. 

2.  Userid. IDMS. Data  should  be  allocated.  For  example, 
if  your  TSO  id  is  AAA,  then  you  should  allocate  a 
file  with  the  name  of  AAA. IDMS. DATA.  One  track 
should  be  enough. 

3.  If  you  are  NOT  using  a  3270  type  terminal,  then 
modify  your  TSO  terminal  configuration  so  that  80 
characters  make  up  one  line. 

4.  Allocate  a  PDS  to  be  used  by  the  translator.  One 
cylinder  should  be  enough. 

Using  the  Translator 

The  translator  is  executed  via  a  TSO  clist  (MENU). 
Menu  will  prompt  you  for  every  piece  of  information  necessary 
to  create  the  IDMS  schema,  DMCL  and  subschema.  The 
translator  software  is  currently  stored  in  a  file  called 
JGO.DE MO.CNTL  and  the  clist  software  Is  currently  stored  In 
J60. CLIST.  These  files  will  therefore  be  used  In  the 
examples  throughout  this  user's  guide.  To  execute  the 
translator  type  in 


EXECUTE  JGO . CLI ST ( MENU ) 

the  system  should  respond  with  the  following  menu  on  the 


screen 


************  S2k  to  IDMS  translator  Menu  *********** 
*  * 

*  1)  RUN  USRPRMP  3)  RUN  IDMSOUT  * 

*  2)  RUN  RDSCHM  >3)  EXIT  MENU  * 


****************************************************** 


you  now  have  the  option  of  entering 

1  -  to  execute  the  USRPRMP  program. 

2  -  to  execute  the  RDSCHM  program. 

3  -  to  execute  the  IDSMOUT  program. 

or  any  number  greater  than  3  to  return  back  to  TSO. 


Execut  ing  Usrprmp 

Usrprmp  will  prompt  you  for  information  necessary  to 
create  the  IDMS  schema,  DMCL,  and  subschema  which  can  not  be 
obtained  from  the  S2k  schema.  Initially,  USRPRMP  will  prompt 
you  for  a  file  (USERDEFS)  in  which  to  store  the  information 
received  by  USRPRMP.  A  member  of  the  previously  allocated  PDS 
is  the  recommended  choice.  A  sample  terminal  session  follows 
with  the  USRPRMP  system  prompts  in  capital  letters. 

ENTER  SCHEMA  NAME  (1-8  CHARACTERS) 
reply  idms  schema  name 
(required  entry) 

ENTER  SCHEMA  VERSION  NUMBER  (1-3  DIGITS) 
reply  idms  version  number  of  this  schema 
(required  entry) 


ENTER  AUTHOR  NAME  (1  30  CHARACTERS) 
reply  authors  name 
(optional  entry) 

ENTER  AUTHOR  PHONE  NUMBER  (AREA  CODE  -  NUMBER) 
reply  author's  phone  number 
(optional  entry) 

ENTER  DATABASE  FILE  NAME  (1-8  CHARACTERS) 
reply  name  of  your  IDMS  database  file 
(required  entry) 

ENTER  DEVICE  TYPE  (3330/3350) 
reply  type  of  storage  device  that  contains  database 

(required  entry) 

ENTER  AREA  NAME  (1  -  16  CHARACTERS) 
reply  the  desired  IDMS  area  name  for  this  schema 

(required  entry) 

ENTER  AREA  STARTING  RANGE  #  (1-8  DIGITS) 
reply  starting  page  number 
(required  entry) 

ENTER  AREA  ENDING  RANGE  #  (1-8  DIGITS) 
reply  ending  page  number 
(required  entry) 

ENTER  DMCL  NAME  (1-8  CHARACTERS) 
reply  name  of  the  dmcl  for  this  schema 
(required  entry) 

ENTER  SUBSCHEMA  NAME  (1-8  CHARACTERS) 
reply  name  of  the  subschema  for  this  schema 
(required  entry) 

USRPRMP  will  then  return  control  back  to  MENU.  If  the  user 
makes  a  mistake  while  entering  data  in  USRPRMP,  corrections 
can  be  made  easily  by  exiting  the  menu,  editing  the  USERDEFS 
file,  and  returning  to  the  MENU.  USRPRMP  does  not  have  to  be 
reexecuted. 


Executing  Rdschm 

Rdschm  will  prompt  you  for  the  following  Information: 

1.  S2KSCHM  -  Name  of  file  containing  the  S2k 
schema  to  be  translated. 

2.  S2KTEMP  -  Name  of  file  to  be  used  for 
temporary  storage. 

3.  IDMSMODL  -  Name  of  file  to  store  the  final 
output  of  RDSCHM. 

4.  STARTNUM  -  Value  to  be  used  for  the  first  IDMS 
record  id  number. 

5.  INCNUM  -  Value  to  be  used  as  the  increment 
for  each  successive  IDMS  record  id  number. 

6.  MSGCLASS  -  which  output  device  to  use 

A  -  printer 
X  -  terminal 

After  answering  the  questions,  a  batch  job  submit  message 
will  appear  on  the  screen.  For  example,  with  a  TSO  user  id 
of  AAA,  the  message  will  be  AAATRNS( JOBXXXX)  SUBMITTED,  with 
XXXX  representing  the  job  number  assigned.  Upon  completion 
of  the  job,  the  user  will  receive  a  listing  of  the  RDSCHM  log 
file  and  the  IDMSMODL  file.  The  user  is  encouraged  to  review 
these  files  before  executing  IDMSOUT. 
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the  IDMSMODL  File 


The  IDMSMODL  file  is  a  model  of  what  the  created  IDMS 
schema  will  look  like.  Changes  to  this  file  can  be  made  very 
easily  by  using  the  TSO  editor.  The  first  record  in  the 
IDMSMODL  contains  the  number  of  records  and  items  in  the 
file.  The  remaining  IDMSMODL  file  is  comprised  of  four  types 
of  80  character  records  TYPE  1,  TYPE2,  TYPE3,and  TYPE4.  TYPE  1 
represents  the  record  description,  TYPE 2  represents  record 
location  mode  of  CALC,  TYPE3  represents  location  mode  of  VIA, 
and  TYPE 4  represents  the  items  of  each  of  the  records.  The 
format  of  these  records  are: 


TYPE  1  -  col 

1 

'  R' 

1  ength 

1 

col 

3 

IDMS  record  name 

1  ength 

16 

col 

20 

IDMS  record  number 

1  ength 

4 

col 

25 

S2k  record  number 

1  ength 

4 

col 

30 

$2k  owner  record  number 

length 

4 

col 

35 

record  item  pointer 

1  ength 

4 

TYPE2  -  col  1 

'C' 

length  1 

col  5 

Calc  item  id 

length  32 

TYPE3  -  col 

1 

■V' 

1 ength 

1 

col 

5 

set  name 

1 ength 

16 

col 

25 

owner  name 

1  ength 

16 

col 

45 

member  name 

1  ength 

16 

TYPE4  -  col 

1 

'  I ' 

1 ength 

1 

col 

3 

S2k  component  number 

1 ength 

4 

col 

8 

IDMS  item  name 

1  ength 

32 

col 

41 

IDMS  item  description 

1 ength 

28 

col 

70 

S2k  record  number 

1  ength 

4 

mJx  ajPmjl  *YV  rfLj/L  i/CmV 
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The  user  should  note  that  TYPE2  and  TYPE3  records  will  not 
appear  in  the  same  IDMS  record  description.  Changes  can  be 
made  to  the  IDMSMODL  file  and  will  be  reflected  in  the 
produced  IDMS  schema,  DM CL,  and  subschema  provided  that  the 
•previously  mentioned  record  format  guidelines  are  followed. 
For  example.  If  the  user  wishes  to  change  a  record's  location 
mode  from  VIA  to  CALC,  the  user  simply  changes  the  record's 
TYPE3  record  to  a  TYPE2  record. 


Executing  Idmsout 


IDMSOUT  will  prompt  the  user  for  the  following 


information: 


1.  USERDEFS  -  Name  of  the  file  used  by  USRPRMP. 

2.  SCHEMA  -  Name  of  the  file  which  will  contain  the 


IDMS  schema. 


3.  IDMSMODL  -  Name  of  the  file  containing  the  IDMS 


model . 


4.  DMCL 


Name  of  the  file  which  will  contain  the 


DMCL. 


5.  SUBSCHEM  -  Name  of  the  file  which  will  contain  the 


subschema . 

6.  MSGCLASS  -  which  output  device  to  use 
A  -  printer 
X  -  terminal. 

After  answering  the  questions,  a  batch  job  submit  message 
will  appear  on  the  screen.  For  example,  with  a  TSO  user  id 
of  AAA,  the  message  will  be  AAAIDMS(JOBXXXX)  SUBMITTED,  with 
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Appendix  B 

Automated  Hierarchical  -  CODASYL  Database  Interface 
Schema  Translator  Data  Plow  Diagrams 
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CODASYL  Information  File 


Process  Number:  2.3 
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Process  Number:  2.4 


Author:  Capt  Jerry  Onens 


Process  Name:  Process  Record  Component 
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Process  Number:  3.0 


Author:  Capt  Jerry  Owens 


Process  Name:  Build  CODASYL  Schema,  Storage_Schema,  and  Subschema 
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Process  Number:  3.1 


Author:  Capt  Jerry  Owens 


Process  Name:  Build  COOASYL  Schema 


CODASYL  SdmaFi  It 


Procsss  Number:  3.3 


Author:  Capt  Jerry  Owens 


Process  Name:  Build  CODASYL  Subschema 
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Appendix  D 

Automated  Hiearchical  -  CODASYL  Database  Interface 
Schema  Translator  Data  Dictionary 


NAME:  Access_Mode_I nf o 
TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  Information  showing  the  CODASYL  access  mode  for 

the  current  CODASYL  record.  If  the  mode  is  to 
be  CALC,  then  the  element  to  perform  the 
hashing  on,  will  be  included.  If  the  mode  is 
VIA,  then  the  owner  and  member  record  names 
will  be  included. 

ALIASES : 

PART  OF:  CODAS YL_I nformat i on_Fi 1 e 
DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  Author_of_Schema 
TYPE:  VARIA8LE 
DATE:  27  Nov  1983 

DESCRIPTION:  Variable  containing  the  name  of  the  author  of 

the  schema. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  Buffer  80 

TYPE:  VARIABIE 
DATE:  26  Nov  1983 

DESCRIPTION:  This  buffer  will  hold  the  first  30  characters 

of  an  S 2 k  component. 

A  L  I A  SF  S  • 

PART  OF:  Recin  Buffer 

DATA  CHARACTERISTICS:  character  string 

VALUES: 
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NAME :  C0DASYL_E1 ement_Descri ption 
TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  An  equivalent  CODASYL  element  description  for 

a  hierarchical  element  description. 

ALIASES: 

PART  OF:  C0DASYL_E1 ement_I nfo 

DATA  CHARACTERISTICS:  character  string 

•VALUES: 


NAME:  CODA S Y L_E1 erne nt_I nfo 
TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  Element  information  needed  for  the  CODASYL 

schema  found  in  the  hierarchical  schema. 

ALIASES: 

PART  OF:  C0DASYL_I nf ormati on_Fi 1 e 
DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  CODASYL  Element_Name 
TYPE:  VARIABLE 

DATE:  24  Nov  1983 

DESCRIPTION:  An  equivalent  CODASYL  schema  element  name  for 

a  hierarchical  schema  element  name. 

ALIASES: 

PART  OF:  CODA'  El ement_Info 

DATA  CHARACTERISTICS:  cha racter_stri ng 

VALUES: 


NAME:  CODAS YL_I nf orma ti on_F i 1 e 

TYPE:  FILE 

DATE:  24  Nov  1983  .  , 

DESCRIPTION:  File  conatining  necessary  information  to  build 
the  CODASYL  schema,  storage_ schema,  and 
subschema  that  was  found  in  the 
H i era rc hi  cal _Schema_Fi le. 

ALIASES: 

’PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  CODASYL  Owne r_I tem__I nf orma t i on 

TYPE:  VARIABLE 

DESCRIPTION^  Information  showing  the  record  of  which  th 
element  is  a  member  of. 


ALIASES:  T  x 

PART  OF:  C0DASYL_E1 ement_Info 

DATA  CHARACTERISTICS:  character  string 

VALUES: 


s 


NAME:  CODASYL_Record_I nf o 

TYPE:  VARIABLE 

DESCRIPTION:  Record  information  found  in  thehierarchical 

D E  SC  R l r  *rhpma  needed  for  the  CODASYL  schema. 


PART  OF:  CODASYL  I n f orma t i on_Fi 1 e 
DATA  CHARACTERISTICS:  character  string 
VALUES: 


,\ 

\ 
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NL 


NAME 

TYPE 

DATE 


CODASYL_Record_Name 

VARIABLE 

24  Nov  1983 


DESCRIPTION:  An  equivalent  CODASYL  record 

hierarchical  record  name. 

ALIASES : 

PART  OF:  CODASYL  Record  Info 

DATA  CHARACTERISTICS:  character  string 

VALUES: 


name 


NAME 

TYPE 

DATE 


CODASYL  Record_Owner  Information 

VARIABLE 

24  Nov  1983 


DESCRIPTION:  Information  showing  the  parent  record  of  the 
current  record  in  the  hierarchical  schema. 

ALIASES: 

PART  OF:  CODASYL  Record  Info 

DATA  CHARACTERISTICS:  character  string 

VALUES: 


NAME:  CODASYL_Schema_F1 1 e 

TYPE:  FILE 

DATE:  24  Nov  1983 

DESCRIPTION:  This  file  will  contain  the  definitions  of  the 
various  types  of  records  in  the  database,  the 
elements  they  contain,  and  the  sets  Into  which 
they  are  grouped. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 

VALUES: 


D  -  4 


SBSPSSBBBSfi! 


NAME:  CODASYL  Storage  Schema  File 

TYPE:  FILE 

DATE:  24  Nov  1983 

DESCRIPTION:  This  file  will  describe  the  storage  structure 
(Internal  view)  ofthe  database. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
•VALUES: 


NAME:  CODASYL  Subschema_F1 1 e 

TYPE:  FILE 

DATE:  24  Nov  1983 

DESCRIPTION:  This  file  will  consist  essentially  of  a 
specification  of  all  schema  record  types, all 
elements  In  those  records,  and  all  schema 
relationships  (sets)  linking  those  records. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 

VALUES: 


NAME:  CODASYL  Temp  File 

TYPE:  FILE 

DATE:  24  Nov  1983 

DESCRIPTION:  Temporary  file  containing  only  Information 

found  in  the  hierarchical  schema.  This  file 
will  be  used  as  Input  for  further  processing. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  Current_System_Date 
TYPE:  VARIABLE 
DATE:  27  Nov  1983 

DESCRIPTION:  Variable  contains  the  current  date  found  In  the 
computer  system.  Used  for  documentation 
purposes . 

ALIASES: 

PART  OF: 

‘DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  DBAInput 
TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCR  I  PT I  ON :  Keybo a rd  Input  from  the  DBA  containing 
Information  necessary  to  build  a  CODASYL 
schema,  storage_schema,  and  subschema  that  is 
not  contained  In  the  hierarchical  schema. 


ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS: 
VALUES: 


character  string 


NAME:  Dummy  Record_Name 
TYPE:  VARIABLE 
DATE:  26  Nov  1983 

DESCRIPTION:  Variable  used  to  store  a  generated  element  name 

for  a  S2k  record  which  has  no  elements.  Idms 
does  not  support  records  with  no  elements 
therefore  a  duaamy  element  must  be  generated. 
ALIASES:  CODASYL  Element_Name 
PART  OF:  CODASYL  Element_Info 
DATA  CHARACTERISTICS:  character  string 
VALUES: 


D  -  6 


i.- 

i.'  _  - 
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NAME:  E1ement_Desc_Info 
TYPE:  VARIABLE 
DATE:  26  Nov  1983 

DESCRIPTION:  This  variable  Is  an  array  of  records  which 

contain  element  Information  needed  for  the 
translation.  Each  record  of  the  array  will 
contain  the  element's  S2k  component  number, 
IDMS  element  name,  IDMS  element  description, 
and  the  record  of  which  this  Item  Is  a  member 
of. 

ALIASES:  C0DASYL_E1 ement_Info 
PART  OF: 

DATA  CHARACTERISTICS:  array  of  records 
VALUES: 


NAME:  Forma tted_DBA_In put 

TYPE:  VARIABLE 

DATE:  24  Nov  1983  ,  J  x 

DESCRIPTION:  Input  from  the  DBA  placed  Into  a  specified  form 

ALIASES:  User_Def 1 nl tl on_F1 1 e 
PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  Forma tted_Schema_Informat ion 

TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  A  combination  of  the  Information  found  in  the 
User_Def 1n1tion_F11e,  CODASYL  Information  File, 
and  the  Schema_Syntax  needed  for  the  CdlJASYL 
schema . 

ALIASES:  C0DASYL_Schema_F1 1 e 
PART  OF: 

DATA  CHARACTERISTICS:  character_stri ng 
VALUES: 


NAME:  Formatted  Storage_Schema_Informat1on 
TYPE:  VARIABLE  ~ 

DATE:  24  Nov  1983 

DESCRIPTION:  A  combination  of  Storage_Schema_Syntax  and  the 

User_Def 1 n 1 1 1  on  File  to  produce  the  correct 
form  of  the  CODASYL  Storage  Schema  File. 
ALIASES:  CODASYL  Storage_Schema_FTl e 
PART  OF: 

'DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  Formatted  Subschema_Information 
TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  A  combination  of  the  Subschema_Syntax , 

User  Definition_F11e,  and 
C0DAS?L_Informat1on_Fi 1 e  needed  for 
CODASYL  subschema. 

ALIASES:  CODASYL  Subschema  File 
PART  OF:  “  ” 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


the 

the 

the 


character  string 


NAME:  Found_Pos1t1on 

TYPE:  VARIABLE 

DATE:  26  Nov  1983 

DESCRIPTION:  This  variable  will  inform  the  calling  module  of 

the  next  position  in  the  Recln  Buffer  to 
continue  processing  from.  All  positions  less 
than  this  value  have  already  been  processed  by 
a  Rdschm  module. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  Integer 

VALUES: 


*  >;v 


.■S-Mv-w 
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NAME:  Hierarchical  Element  Information 
TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  Element  Information  conatlned 

hierarchical  schema. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
‘VALUES: 


NAME:  H1erarch1cal_Record  Information 
TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  Record  information  found  in  the  hiera 
schema . 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  Hierarchical  Schema  File 

TYPE:  FILE 

DATE:  24  Nov  1983 

DESCRIPTION:  File  containing  the  hierarchical  schema 
to  be  translated  to  a  CODASYL  schema. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


In  the 


rchi cal 


that  Is 


•  <  « 
-V  >• 


NAME:  IDMS  Area_Name 

TYPE:  VARIABLE 
DATE:  27  Nov  1983 

DESCRIPTION:  Variable  containing  the  name  of  the  area  region 
In  the  IDMS  schema. 

ALIASES: 

PART  OF: 

.DATA  CHARACTERISTICS: 

VALUES: 


NAME:  IDMS_D 

TYPE:  FILE 
DATE:  27  Nov 
DESCRIPTION: 


IDMS_DMCL_F11e 

FILE 


ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS: 
VALUES: 


1983 

File  containing  definitions  of  areas  and  files 
of  the  schema  as  well  as  Information  on  the 
buffers  and  journals  that  are  used. 


character  string 


NAME:  IDMS  DMC L_Name 

TYPE:  VARIABLE 
DATE:  27  Nov  1983 

DESCRIPTION:  Variable  storing  the  name  of  the  IDMS_DMCL. 
ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


D  -  10 


V  /*  f 


NAME:  IDMS  F11e_Name 
TYPE:  VARIABLE 
DATE:  27  Nov  1983 

DESCRIPTION:  Variable  containing  the  name  of  the  file  which 
contains  the  database. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  IDMS_M 

TYPE:  FILE 
DATE:  26  Nov 
DESCRIPTION: 


IDMS_Model_F11e 

FILE 

26  Nov  1983 

>TI0N:  This  file  contains  all  of  the  processed  S2k 


1 nformatl on  that 


contained 


S2k_Temp_File  plus  It  now  contains  the  record 
location  mode  Information.  The  information  is 
in  an  easy  to  read  form  so  the  DBA  can  make 
changes  if  necessary. 

CODASYL  Information  File 


ALIASES:  CODASYL  Inf 
PART  OF : 

DATA  CHARACTERISTICS: 
VALUES: 


NAME:  IDMS  Schema_Name 
TYPE:  VARIABLE 
DATE:  27  Nov  1983 

DESCRIPTION:  Variable  containing  the  name  of  the  IDMS  schema 

that  Is  being  created  by  the  thesis  software. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


<Vj 


NAME:  IDMS  Schema  Version 

TYPE:  VARIABLE 
DATE:  27  Nov  1983 

DESCRIPTION:  Variable  containing  the  version  number  of  this 

particular  schema. 

ALIASES: 

PART  OF: 

.DATA  CHARACTERISTICS:  character  string 
VALUES: 


* 


NAME:  Input  Buffer 

TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  A  buffer  used  to  store  Information  read  from  a 

file. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  Match1ng_Paren_Found 

TYPE:  VARIABLE 

DATE:  26  Nov  1983 

DESCRIPTION:  This  variable  will  indicate  to  the  calling 

procedure  whether  or  not  matching  parenthesis 
has  been  found  in  the  string  being  processed. 
The  value  will  be  a  1  if  true  and  a  0  if 
false. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  integer 

VALUES:  0,  1 


D  -  12 


NAME:  Number  of_Elements 

TYPE:  VARIABrE 

DATE:  26  Nov  1983 

DESCRIPTION:  This  variable  will  contain  the  number  of 

element  entries  that  have  been  processed.  This 
value  will  be  used  for  the  dynamic  allocation 
of  an  array  of  element  information. 

ALIASES: 

•PART  OF: 

DATA  CHARACTERISTICS:  integer 

VALUES: 


NAME:  Number  of_Records 

TYPE:  VARIABlE 

DATE:  26  Nov  1983 

DESCRIPTION:  This  variable  will  contain  the  current  count  of 
the  number  of  record  entries  that  have  been 
processed.  This  value  will  be  used  for  the 
dynamic  allocation  of  an  array  of  record 
information. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  integer 

VALUES: 


NAME:  Pattern  to_Be_Found 

TYPE:  VARIABLE 
DATE:  26  Nov  1983 

DESCRIPTION:  This  variable  ia  a  character  string  of  1  -  20 
characters  that  is  to  be  searched  for  in  a 
parent  string. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  Prompt_Message 
TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  A  message  sent  to  the  DBA  for  the  required 

Information  needed  for  the  CODASYL  schema, 
storage  schema,  or  subschema  not  found  in  the 
hieracrKical  schema. 

ALIASES: 

.PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  Recin_Buffer 

TYPE:  VARIABLE 

DATE:  26  Nov  1983 

DESCRIPTION:  An  input  buffer  with  the  cap*  ' of  160 

characters  used  to  store  the  L  archical 
schema  file  information.  This  size  was  chosen 
to  support  information  being  across  two  cards 
of  input.  One  card  having  the  size  of  80 
charcaters. 

ALIASES:  I nput_Buf fer ,  HierarchicalElementlnformation, 

Hierarchical_Record_I nformation 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 

VALUES: 


NAME:  Recin  Buffer_Start_Posi tion 
TYPE:  VARIABLE 
DATE:  26  Nov  1983 

DESCRIPTION:  This  variable  will  contain  the  next  position  in 
the  RecInBuffer  to  be  processed. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  Integer 
VALUES: 


NAME:  Record_Desc_Info 
TYPE:  VARIABLE 
DATE:  26  Nov  1983 

DESCRIPTION:  This  variable  is  an  array  of  records  which 

contain  the  record  Information  needed  to 
perform  the  translation.  The  information 
contained  Is  the  IDMS  record  name,  IDMS  record 
number,  S  2  k  component  number,  S2k  owner 
component  number,  and  the  position  in  the 
El ement_Desc_I nfo  array  of  the  record's  first 
element. 

ALIASES:  CODASYL_Record_I nfo 
PART  OF: 

DATA  CHARACTERISTICS:  array  of  records 
VALUES: 


NAME:  Record  Desc_I nfo_Pos 

TYPE:  VARIABlE 

DATE:  26  Nov  1983 

DESCRIPTION:  A  variable  containing  the  current  position  of 

the  current  record  of  information  in  the 
Record_Desc  Info  array.  This  variable  is  very 
important  Tn  the  task  of  finding  the  owner 
record  for  the  current  record. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  integer 

VALUES: 


NAME:  Record  Name 
TYPE:  VARIABlE 
DATE:  26  Nov  1983 

DESCRIPTION:  A  buffer  used  to  contain  the  IDMS  record  name. 

ALIASES:  CODASYL_Record_Name 
PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  Record_Next_Pr1or_Info 
TYPE:  VARIABLE 
DATE:  27  Nov  1983 

DESCRIPTION:  An  array  of  records  containing  the  IDMS  record 

name.  Its  next  pointer  value,  and  Its  prior 
pointer  value. 

ALIASES: 

PART  OF: 

’DATA  CHARACTERISTICS:  array  of  records 
VALUES: 


NAME:  Record_Next_Pr1or_Pos 
TYPE:  VARIABLE 
DATE:  27  Nov  1983 

DESCRIPTION:  Variable  used  as  a  subscript  into  the 

Record  Next  Pos  Info  array. 

ALIASES:  "  " 

PART  OF: 

DATA  CHARACTERISTICS:  integer 
VALUES: 


NAME:  Recout  Buffer 
TYPE:  VAR I ABIE 
DATE:  26  Nov  1983 

DESCRIPTION:  An  80  character  buffer  used  for  storing  the 

information  that  was  contained  in  the 
Rec1n_Buffer  and  Is  needed  for  the  IDMS 
translation.  After  the  entire  Recin_Buffer 
has  been  processed,  the  RecoutBuf f er  will 
contain  all  of  the  necessary  record 
information  or  all  of  the  necessary  element 
information,  depending  on  the  type  of 
information  currently  being  processed,  needed 
for  the  translation.  Certain  parts  of  this 
buffer  will  be  updated  by  various  modules. 
ALIASES:  C0DASYL_E1 ement  Info,  CODASYL  Record  Info 
PART  OF:  ~ 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


D  -  16 


TYPE:  FILE 
DATE:  26  Nov  1983 

DESCRIPTION:  This  file  Is  an  Information  file  for  the  DBA. 

Every  S2k  component  record  will  be  shown  with 
Its  mapped  IDMS  translation. 

ALIASES: 

PART  OF: 

'DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  S2k_Temp  File 

TYPE:  FILE 

DATE:  26  Nov  1983 

DESCRIPTION:  This  file  will  contain  all  of  the  information 

needed  for  the  IDMS  translation  that  was  found 
in  the  S2k  input  schema.  The  record  and 
element  names  will  be  truncated  to  the  correct 
size  as  restricted  by  IDMS.  Also  the  S2k 
element  descriptions  will  have  been  mapped  to 
an  equivalent  IDMS  element  description. 
ALIASES:  CODASYL_Temp_Fi le 
PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  SchemaSyntax 
TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  Syntax  necessary  for  the  correct  format  of  the 

CODASYL  schema. 

ALIASES: 

PART  OF:  Formatted  Schema  Information 
DATA  CHARACTERISTICS:  character  string 
VALUES: 


NAME:  Set_Count 
TYPE:  VARIABLE 
DATE:  26  Nov  1983 

DESCRIPTION:  Variable  which  contains  the  current  number  of 

set  relations  using  the  VIA  location  mode. 
This  value  Is  used  In  generating  the  unique 
IDMS  set  names. 

.ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  Integer 
VALUES: 


NAME:  Set_Name 
TYPE:  VARIABLE 
DATE:  27  Nov  1983 

DESCRIPTION:  variable  used  to  store  the  name  of  an  IDMS  set. 
ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  set 
VALUES: 


NAME:  Set  Owner  Member  Info 

TYPE:  VARIABLE  ~ 

DATE:  27  Nov  1983 

DESCRIPTION:  An  array  of  records  containing  the  IDMS  set 
name,  the  name  of  the  record  owning  the  set, 
and  the  name  of  the  record  which  Is  the  member 
of  the  set. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  array  of  records 

VALUES: 


NAME:  Set  Owner  Member  Pos 
TYPE:  VARIABLE 
DATE:  27  Nov  1983 

DESCRIPTION:  Variable  used  as  a  subscript  Into  the 

Set  Owner  Member  Info  array. 

ALIASES:  “ 

PART  OF: 

DATA  CHARACTERISTICS:  Integer 
•VALUES: 


NAME:  Starting  Pos_of  Pattern 

TYPE:  VARIABLE 

DATE:  26  Nov  1983 

DESCRIPTION:  This  variable  will  contain  the  starting 

position  In  the  parent  character  string  of 
the  pattern  of  characters  being  searched  for. 
If  the  desired  pattern  is  not  found  then  the 
va 1 ue  1 s  0. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  integer 

VALUES: 


NAME:  Storage_Schema_Syntax 
TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  Synatx  Information  needed  for  the  correct 

generation  of  the  CODASYL  Storage  Schema  File. 
ALIASES:  _  _  _ 

PART  OF:  Formatted  Storage  Schema  Information 
DATA  CHARACTERISTIC!:  character  siring 
VALUES: 


D  -  19 


NAME:  Sub$chema_Syntax 
TYPE:  VARIABLE 
DATE:  24  Nov  1983 

DESCRIPTION:  Synatx  for  the  CODASYL  Subschema  generation. 
ALIASES: 

PART  OF:  Formatted  Subschema  Information 
DATA  CHARACTERISTICS:  characTer_stri ng 
VALUES: 

• 


NAME:  Total  Records_and_Elements 
TYPE:  VARIABLE 
DATE:  26  Nov  1983 

DESCRIPTION:  An  Integer  containing  the  total  number  of 

records  and  elements  In  the  schema. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  Integer 
VALUES: 


NAME:  User  Def1n1t1on_File 

TYPE:  FILE 

DATE:  24  Nov  1983 

DESCRIPTION:  File  which  contains  all  of  the  DBA  Input. 

ALIASES: 

PART  OF: 

DATA  CHARACTERISTICS:  character  string 
VALUES: 


D  -  20 


Appendix  E 

Automated  Hierarchical  -  CODASYL  Database  Interface 
Schema  Translator  Pl/1  Source  Code 


/•  USRPRMP  1.0  •/ 

/IHHHHIlHHHHHMIltfHliltHItflHiltmtltHHHHffHI 

•  BATE:  IS  AU6  1983 
»  VERSION:  1.1 

•  NAHE:  USRPRHP 

f  MODULE  NUMBER:  1.0 

t  FUNCTION:  MAIN  DRIVER.  PROMPTS  USER  FOR  THE  NECESSARY  INFO 

•  TO  BUILD  THE  IDHS  SCHEMA,  SUBSCHEMA,  AND  DHCL. 
t  INPUTS: 

«  outputs: 

•  GLOBAL  VARIABLES  USED: 

t  GLOBAL  VARIABLES  CHANGED: 

•  GLOBAL  TABLES  USED: 

•  FILES  READ: 

•  FILES  NRITTEN: 

•  MODULES  CALLED:  RDNRIT 

•  CALLIN6  MODULES: 

•  AUTHOR:  CAPT.  JERRY  OMENS 
t  HISTORY.' 


*/ 

USRPRNP:  PROC  OPTIONS  (MAIN); 

PUT  SKIP; 

PUT  SKIP  EDIT (’ENTER  SCHEMA  NAME  (1  -  B  CHARACTERS)  ') 
<COL(l),A); 

PUT  SKIP; 

CALL  RDNRIT; 

PUT  SKIP; 

PUT  SKIP  EDITI’ENTER  SCHEMA  VERSION  NUMBER  (1-3  DIBITS  )  ’) 

(COL(l) , A) | 

PUT  SKIP; 

CALL  RDNRIT; 

PUT  SKIP; 

PUT  SKIP  EDIT(’ENT£R  AUTHOR  NAHE  (i  -  30  CHARACTERS)  ') 
(COL(l)pA); 

PUT  SKIP; 

CALL  RDNRITI 
PUT  SKIP) 

PUT  SKIP  EDIT (’ENTER  AUTHOR  PHONE  NUMBER  (AREA  CODE  -  NUMBER)  ’) 
(C0L(1) ,A)( 

PUT  SKIP; 

CALL  RDNRIT; 


E  -  1 


PUT  skip; 

PUT  SKIP  EDIT (’ENTER  DATABASE  FILE  NAME  (I  -  8  CHARACTERS)  ') 
(C0L(1)|A); 

PUT  SKIP; 

CALL  RDNRIT; 

PUT  SKIP; 

PUT  SKIP  EDITCENTER  DEVICE  TYPE  (3330/3350)  ’) (C0L(1),A) ; 

PUT  SKIP; 

CALL  RDNRIT; 

PUT  SKIP; 

PUT  SKIP  EDITCENTER  AREA  NAME  (1  -  16  CHARACTERS)  ’>(COL(l),A) 
PUT  SKIP; 

CALL  RDNRIT; 

PUT  SKIPS 

PUT  SKIP  EDITCENTER  AREA  STARTIN6  RAN6E  •  (1  •  8  DIBITS)  ’) 
(COL(l),A); 

PUT  SKIP; 

CALL  RDNRIT; 

PUT  skip; 

PUT  SKIP  EDITCENTER  AREA  ENDING  RAN6E  «  (1  -  8  DIBITS)  ’) 
(COL(I),A); 

PUT  SKIPr 
CALL  RDNRIT; 

PUT  SKIP; 

PUT  SKIP  EDITCENTER  DHCL  NAME  (1  -  8  CHARACTERS)  ’) 

(COL (1), A) 5 

PUT  SKIP; 

CALL  RDNRIT; 

PUT  SKIP; 

PUT  SKIP  EDITCENTER  SUBSCHEMA  NAME  (1-8  CHARACTERS)  ’) 

(COL (1) , A) ; 

PUT  SKIP; 

CALL  RDNRIT; 


H 


/•  RDNRIT  1.1  */ 

/•HHHHHHHHHHt 

•  DATE:  IS  m  1983 

•  VERSION:  1.0 

•  NAME:  RJHIRIT 

•  NODULE  NUNBER:  1.1 

•  function:  read  terminal  input  and  write  it  FILE  USERDEFS 

•  INPUTS: 

•  outputs: 

•  6L0BAL  VARIABLES  USED: 

i  GLOBAL  VARIABLES  CHAN6ED: 

«  GLOBAL  TABUS  USED: 

•  F1US  READ: 

•  FILES  WRITTEN:  USERDEFS 

•  NODULES  CALLED: 

•  CALLING  NODULES:  USRPRNP 

•  AUTHOR:  CAPT.  JERRY  OWENS 
»  HISTORY: 

IHtHIHiHiHIHiHHHHHIiHIKttlitiidltiMtKItliHI 


*/ 

RDWRIT:  PROCEDURE; 

DCL  USERIN  FILE  RECORD  SESUENTIAL  INPUT; 

DCL  USEROUT  FILE  STREAM  OUTPUT; 

DCL  USER  INPUT  CHAR  (BOX 
READ  FILE  (USERIN)  INTO  (USER.INPUT) 5 
PUT  FILE  (USEROUT)  EBIT  (USER.INPUT)  (COLU),A» 
END  RDNRITi 
END  USRPRNP; 


/•  RDSCHH  2.0  •/ 

i  MTE:  7  SEP  1983 
t  VERSION:  1.1 

•  HARE:  RDSCHH 

•  NOME  NUMBER:  2.0 

•  FUNCTION:  MAIN  DRIVER.  CONTINUES  TO  CALL  THE  APPROPIATE 

•  NODULES  UNTIL  AND  EOF  OF  THE  INPUT  FILE  IS 

»  ENCOUNTERED. 

•  INPUTS.* 

«  OUTPUTS.* 

•  GLOBAL  VARIABLES  USED: 

•  GLOBAL  VARIABLES  CHANGED: 

•  GLOBAL  TABLES  USED: 

•  FILES  READ! 

•  FILES  NRITTEN: 

•  HOMES  CALLED:  RDBUFF,  FRSTREC,  READOUT,  GETNUN,  6ETNAHE, 

t  GETTYPE,  SCHHBL 

•  CALLING  ROMES: 

•  AUTHOR:  CAPT.  JERRY  ONENS 

•  HISTORY: 


/ 


/# 


•/ 

RDSCHH:  PROC  OPTIONS  (NAIN)i 

DCL  GETNUN  ENTRY  (CHAR(140),CHAR(B0>, FIXED  BIN(15)> 
RETURNS  (FIXED  BINdSIM 

DCL  RECFND  ENTRY  (CHAR(140),CHAR(B0), FIXED  BIN(15))i 
DCL  INTFND  ENTRY  (CHAR(140),CHAR(80), FIXED  BIN(IS)); 

DCL  CHRFND  ENTRY  (CHAR (160), CHAR (80) .FIXED  BIN ( 15) > J 
DCL  DECFND  ENTRY  (CHARU40)  ,CHAR(80!  .FIXED  BINUS))i 
DCL  HONEY  ENTRY  (CHAR(160),CHAR (GO), FIXED  BIN(15))| 

DCL  DATFND  ENTRY  (CHAR (140), CHAR (80), FIXED  BIN(1S> >; 

DCL  READOUT  ENTRY  (CHAR (140), CHAR (80)) ! 

Da  RDBUFF  ENTRY  (CHARU40)); 

DCL  FRSTREC  ENTRY  (CHAR (140) f CHAR (80) ) 

RETURNS  (FIXED  BIN(15)); 

DCL  BETNAHE  ENTRY  (CHAR (140), CHAR (80), FIXED  BIN(15)) 
RETURNS  (FIXED  BIN(15)M 

DCL  GETTYPE  ENTRY  (CHAR (140), CHAR (80), FIXED  BIN(IS), 
FIXED  BIN(IS), FIXED  BIN(15W 
DCL  NONBLNK  ENTRY  (CHAR(140), FIXED  BINI15)) 

RETURNS  (FIXED  BIN(lS))f 
Da  CHKPAR  ENTRY  (CHAR (BO)) 

RETURNS  (FIXED  BIN(lS))i 

DCL  FINDPAT  ENTRY  (CHAR(140), FIXED  BIN  (IS),  CHAR  (20)  VAR) 
RETURNS  (FIXED  BIN(1S))I 
Da  SCHHBL  ENTRY! 

Da  S2KSCHH  FILE  STREAM  INPUT; 

Ba  S2KTEHP  FILE  STREAM) 

Da  IDM8MDL  FILE  STREAM  OUTPUT) 

Da  RECIN  BUFFER  CHAR(140)i 


Da  RECOUT.BUFFER  CHAR  (BO); 

Da  BUF.POS  FIXED  BIN  (ISM 
Da  REC.CNT  FIXED  BIN  (IS)  INITIO); 

DCL  ELEH.CNT  FIXED  BIN(IS)  INIT(O); 

ON  ENDFILE  (S2KSCHH)  60  TO  SETBLi 
OPEN  FILE  (S2KTEHP)  OUTPUT; 

PUT  PAGE; 

BUF.POS  *  0; 

/# 

*  FIND  THE  NAME  OF  S2K  RECORD  ZERO.  * 

iff  ffHififfffftftfffHftfXftifitfttffttfitfittXtttitttftt 
»/ 

DO  HHILE  (BUF  POS  *  0); 

CALL  RDBUFF (RECIN  BUFFER)  i 

BUF.POS  *  FRSTREC (RECIN  BUFFER, RECOUT.BUFFER); 

END; 

CALL  READOUT  (REC!N.BUFFER,RECOUT  BUFFER)) 

REC  CNT  «  REC  CNT  ♦*  1; 

CALL  RDBUFF IRECIR_BUFFER) I 

/# 

•  CONTINUE  PROCESSING  UNTIL  EOF  HAS  BEEN  REACHED  • 


DO  HHILE  (M’Bli 
BUF  POS  «  II 

BUF  POS  *  6ETWH<RECnt  BUFFER, RECM^BUFFER, BUF  P05M 
IF  BUF  POS  >  0  THEN  DOS 

BUF.POS  *  6ETNAHE (RECIN .BUFFER, RECQUT  BUFFER, BUF  POS); 
CALL  6ETTYPE (RECIN  BUFFER, RECOUT.BUFFER, BUF.POS, 

REC  CNT, ELEN  CNT); 

CALL  READOUT  (RECIN  BUFFER, RECOUT  BUFFER); 

END; 

CALL  RDBUFF (RECIN  BUFFER); 

RECOUT  BUFFER  «  ”f 
END; 


«  THIS  PORTION  NILL  BE  EXECUTED  NHEN  THE  EOF  HAS  BEEN  » 
•  REACHED  • 

tttmttttfmtmtmttmmmmitHtmmtmmtxm 


SETBL:  CALL  SCHHBL (REC.CNT, ELEH.CNT); 


/#  RDBUFF  2.1  »/ 


SATE:  30  AUG  83 
VERSION:  1.0 
NAME!  RDBUFF 
NODULE  NUMBER:  2.1 

FUNCTION!  READ  IN  THE  BUFFER  FOR  PROCESSING 
INPUTS: 

OUTPUTS:  RECINJUFFER 
GLOBAL  VARIABLES  USED: 

6L0BAL  VARIABLES  CHANGED: 

GLOBAL  TABLES  USED: 

FILES  READ:  S2KSCHH 
FILES  MITTEN: 

NODULES  CALLED!  CHKPAR,  FINDPAT,  NONBLHK,  SUBSTR 
CALUNS  NODULES:  RDSCHN 
AUTHOR:  CAPT  JERRY  ONENS 


3 

/ * 

n 

»/ 

RDBUFF:  PROCEDURE  (RECIN  BUFFER)! 

DCL  RECIN  BUFFER  CHARIU09; 

K 

DCL  IN  BUF1  CHAR (80) I 

v 

DCL  IN  BUF2  CHAR (BO) J 

'u 

DCL  BLNK.REC  CHAR (80)  INIT  ((80)’  »)J 

1  fr 

DCL  RDIUF  LOC  FIIES  B IM 15); 

DCL  PAREN  CNT  FIXED  BIN(IS); 

IN.BUF2  «  BLNN.REC; 

t 

tt*t*t#*ft«***t«»#tt#«*»f*tt*»»t**»tM»»*»»iMmm#tMt 

t  READ  IN  80  COLUHNS  OF  THE  S2K  SCHEMA  FILE .  • 

/ 

SET  FILE  (S2KSCHH)  EDIT  (IN.BUF1) <C0L(1),A(BO))! 
PAREN.CNT  «  CHKPAR (IN.BUF1) | 

********************************************************* 
t  ALL  INFO  IN  FIRST  GO  COLUHNS  ?????  * 

HHHMfmHMMMttmtmmmmmmmmmm* 

i/ 

IF  PAREN  CNT  «  0  THEN  DOi 


t  NOPE,  NUST  READ  IN  SECOND  CARD 


GET  FILE  (82KSCHN)  EDIT  {IN_DUF2HC0L<1>,A(80>)J 
RECIN.BUFFER  <  INDUF1  ::  IN.BUF2I 


e  -  6 


r  r. 


/* 

HlfiHIHHHHHHHIHHHKtmitHHHHIHtHHilH 

•  HOW  FAR  IS  THIS  CARD  INDENTED  ???  '  « 

HHHHIlHHItMHHHHIHiHHItHtMiliHKIIItHHi 

*/ 

RDBUF  LOC  «  FINDPAT (RECIN  BUFFER, 1,’«  ’); 

RDBUF  LOC  «  NONBLNK (RECIN  BUFFER, RDBUF  LOC  *  1); 

/« 

•  PLACE  THE  INDENTION  BLANKS  AT  THE  END  OF  THE  CARD  * 

•/ 

SUBSTRUN  BUF2, i ,  ( (BO-RDBUF  LOC) *1 ) >  * 

SUBSTR (IN  BUF2, RDBUF  LOC, ( (BO-ROBUF  LQC)*1))J 
SUBSTRdN  BUF2, ( (60-RDBUF  LOC) >2), (RDBUF  LOC  -  ID  « 
SUBSTR ( BLNK.REC, 1 , (RDBUF _LQC  -  l))| 

/# 

HHHWIHHfHMHHMWiWHHHHOHflM HHtllH 

•  HER6E  THE  TNO  CARDS  TO  LOOK  LIKE  ONE  LONS  CARO  « 

*1 

SUBSTR (RECIN  BUFFER, 1,80)  *  IN  BUF1J 
SUBSTR  (RECIMUFFER,  73, 80)  >  IN  BUF2I 
SUBSTR (RECIN  BUFFER, 153, B)  ■ 

SUBSTR (BLNK  REC,1,B); 

END; 

ELSE 

RECIN  BUFFER  '  IN  BUF1  ::  IN  BUF2« 

END  RDBUFF; 


E  -  7 


t  DATE:  24  AU6  83 
t  VERSION:  1.0 
«  NAME:  CHKPAR 
t  MODULE  NUMBER!  2.1.1 

•  FUNCTION:  CHECKS  FOR  HATCHIN6  PARENTHESIS  IN  A  GIVEN  BUFFER 

•  INPUTS:  IN  BUF1  -  80  CHARACTER  INPU.  BUFFER 
t  OUTPUTS:  1  -  IF  HATCHING  PARENS  ARE  FOUND 

•  0  -  IF  NO  MATCHING  PARENS  ARE  FOUND 
«  6L0BAL  VARIABLES  USED: 

«  GLOBAL  VARIABLES  CHANGED: 

•  GLOBAL  TABLES  USED: 

•  FILES  READ: 

•  FILES  MRITTEN: 

•  NODULES  CALLED:  SUBSTR 

•  CALLING  NODULES:  RDBUFF 

•  AUTHOR:  CAPT.  JERRY  OMENS 
»  HISTORY: 


CHKPAR:  PROCEDURE  (IN  BUF1)  RETURNS  (FIXED  B2N(15)>; 
DCL  IN  BUF1  CHAR (GO); 

DCL  PARCNT  FIXED  BIN(15) ; 

DCL  I  FIXED  BINI15U 

DO.  LEFT  PAR  FIXED  BIN  1 15)  INITIO); 

DCL  RIGHT  PAR  FIXES  BIN(IS)  INIT(O); 

DO  I  *  1  TO  BO; 

IF  (SUBSTR(IN.BUF1,I,1))  *  ’<’  THEN 
LEFT  PAR  =  LEFT.PAR  ♦  1$ 

IF  (SUBSTR(IN.BUF1,I,1))  =  ’)’  THEN 
RIGHT  PAR  *  RIGHT  PAR  Ml 
END; 

IF  (LEFT  PAR  =  RIGHT  PAR)  THEN 
I  *  II 
ELSE 
I  *  OS 
RETURN  (I); 

END  CHKPAR! 


/*  FINDPAT  2.1.2  #/ 

/tttittttttttttttttttttttttttttttittifHittttttttfHttttftHttfftfttt 

•  DATE:  24  AU6  S3  t 

•  VERSION:  1.0  t 

•  NAME:  FINDPAT  * 

•  NODULE  NUMBER:  2.1.2  • 

•  FUNCTION:  FIND  A  PASSED  CHARACTER  PATTERN  IN  A  PASSED  t 

•  CHARACTER  STRINS  BEGINNING  NITH  A  PASSED  STARTING  * 

•  POSISTION  IN  THE  STRINS.  * 

t  INPUTS:  RECIN.BUFFER  -  160  CHARACTER  INPUT  BUFFER  # 

•  FINOPAT.POS  -  STARTING  POS  IN  THE  INPUT  BUFFER  • 

•  FIXED  BIN (15)  • 

•  FINDCHR  -  PATTERN  TO  BE  SEARCHED  FOR  • 

«  CHAR (20)  VAR  • 

«  OUTPUTS:  FINOPAT.POS  -  STARTIN6  POS  OF  THE  PATTERN  t 

t  FIXED  BINU5)  * 

•  GLOBAL  VARIABLES  USED:  t 

•  GLOBAL  VARIABLES  CHANGED:  • 

•  6L0BAL  TABLES  USED:  * 

•  FILES  READ:  t 

•  FILES  NRITTEN:  * 

•  NODULES  CALLED:  LEN6TH,  SUBSTR,  INDEX  • 

t  CALLING  NODULES:  RECFND,  INTEND,  CHRFND,  DATFND,  DECFND,  ♦ 

•  NONET,  RDBUFF,  FRSTREC,  6ETNUN,  6ETNAHE,  • 

•  GETTTPE  * 

•  AUTHOR:  CAPT  JERRY  OMENS  * 

•  HISTORY:  # 

tlHfHIIHHIMIKHIIHHIlHHIHIHHHtllllttfHHHimiHWII/ 

/* 

*/ 

FINDPAT:  PROCEDURE  (RECIN  BUFFER, FINOPAT.POS, FINDCHR)  RETURNS 
(FIXED  BIN(IS)); 

DCL  RECIN.BUFFER  CHAR (160); 

DCL  FINOPAT.POS  FIXED  BIN115); 

DCL  TENP.BUFFER  CHAR (160)  VAR; 

DCL  FINDCHR  CHAR(20)  VAR; 

DCL  TEHP  LNGTH  FIXED  BIN (15); 

DCL  LOCATE.POS  FIXED  BIN(I5); 

/» 


♦  6ET  THE  LEN6TH  OF  THE  STRING  STARTING  NITH  THE  GIVEN  t 

*  STARTING  POSITION.  t 


«/ 

TEMP  LNGTH  *  (LENGTH (RECIN  BUFFER)  -  FINDPAT.POS)  ♦  1; 

TEHP  BUFFER  *  SUBSTR (RECIN  BUFFER, FINDPAT  P0S,TEHP.LN6TH); 


«  SEARCH  IN  THE  NENLY  CREATED  SUBSTRING  FOR  THE  GIVEN  PATTERN* 

•  IF  THE  SIVEN  PATTERN  IS  FOUND,  THEN  UPDATE  THE  POSITION  » 

•  NITH  THE  STARTIN6  POSITION  ADDED.  THIS  HILL  6IVE  THE  RI6HT  « 

•  POSITION  FOR  THE  ENTIRE  STRIN6.  • 


*/ 

LOCATE  POS  -  INDEX  (TEMP  BUFFER, F I NDCHR)} 

IF  LOCATE.POS  :=  0  THEN 
LOCATE.POS  =  LOCATE.POS  ♦  (FINDPAT  POS  -  11} 
RETURN  (LOCATE.POS); 


END  FINDPAT; 


/«  NONBLNK  2.1.3  •/ 

t  DATE:  24  AU6  83 

•  VERSION:  1.0 
«  NAME:  NONBLNK 

•  NODULE  NUNBER:  2.1.3 

t  FUNCTION:  FIND  THE  FIRST  NONBLNK  CHARACTER  IN  A  GIVEN  STRIN6 

•  BEGINNING  KITH  A  GIVEN  STARTING  POINT. 

#  INPUTS:  RECIN  BUFFER  -  160  CHARACTER  INPUT  BUFFER 

•  NONBLNK  POS  -  STARTING  P0S1STI0N  IN  BUFFER 

*  .  '  FIXED  BINU5) 

*  OUTPUTS:  NONBLNK  POS  -  POINTS  TO  THE  FIRST  NON  BLANK 

*  "  CHARACTER  FROfl  THE  GIVEN  START  I N6 

*  POS I ST I ON 


OUTPUTS:  NONBLNK.POS 


6L0BAL  VARIABLES  USED: 
6L0BAL  VARIABLES  CHANGED: 
6L0BAL  TABLES  USED: 

FILES  READ: 

FILES  nritten: 

NODULES  CALLED:  SUBSTR 
CALLING  NODULES:  ROSCHH 
AUTHOR:  CAPT.  JERRY  OMENS 
HISTORY: 


/ 


NONBLNK:  PROCEDURE  <RECIR_BUFFER, NONBLNK.POS)  RETURNS 
(FIXED  BIN (15) ) > 

DCL  RECIN.BUFFER  CHAR(160); 

DCL  NONBLNK.POS  FIXED  BIN<15) j 
DO  NHILE  (<SUBSTR(RECIN_BUFFER, NONBLNK.POS, 1)  *"l  I 
(NONBLNK.POS  <-  160)1; 

NONBLNK.POS  »  NONBLNK.POS  ♦  1> 

END; 

IF  NONBLNK.POS  >  160  THEN  NONBLNK.POS  =  0; 

RETURN  (NONBLNK.POS); 

END  NONBLNK; 


I*  FRSTREC  2.2  */ 


SATE:  28  AU6  83 
VERSION:  1.0 
NAME:  FRSTREC 
NODULE  NUMBER:  2*2 

FUNCTION:  FIND  THE  RECORD  NAHE  OF  RECORD  ZERO  (0). 

INPUTS:  RECIN  BUFFER  -  160  CHARACTER  INPUT  BUFFER 
RECOUT  BUFFER  -  80  CHARACTER  OUTPUT  BUFFER 
OUTPUTS:  FRSTREC  POS  -  P0S1STI0N  IN  THE  BUFFER  OF  THE  NAHE. 
FIXED  BIN ( 15) 

GLOBAL  VARIABLES  USED: 

6L0BAL  VARIABLES  CHANSED: 

GLOBAL  TABLES  USED: 

FILES  READ: 

FILES  MITTEN; 

NODULES  CALLED:  FINDPAT,  NQNBLNK,  SUBSTR 
CALLING  NODULES:  RDSCHH 
AUTHOR:  CAPT  JERRY  MENS 

history: 


FRSTREC:  PROCEDURE  (RECIN  BUFFER, RECOUT.BUFFER)  RETURNS 
(FIXED  BIN(ISI); 

DCL  RECIN.BUFFER  CHAR (160); 

DCL  RECOUT  BUFFER  CHAR (80)} 

DCL  FRSTREC  POS  FIXED  BIN(IS); 

FRSTREC.POS  *  FINDPAT (RECIN.BUFFER, 1, 'NAME  IS’); 

IF  FRSTREC  POS  :*  0  THEN  DO; 

FRSTREC  POS  «  FRSTREC.POS  ♦  7; 

FRSTREC  POS  *  NONBLNMRECIN.BUFFER, FRSTREC.POS)} 

SUBSTR (RECOUT.BUFFER, 1,4)  «  ’0  ’J 
SUBSTR (RECOUT  BUFFER, 5,5)  «  ’  ’{ 

SUBSTR (RECOUT.BUFFER, 10, 16)  »  SUBSTR (RECIN.BUFFER, FRSTREC.POS, 16) ; 
SUBSTR (RECOUT.BUFFER, 26, 22)  «  ’  '} 

SUBSTR (RECOUT.BUFFER, 48,4)  *  ’REC  ’} 

SUBSTR  (RECOUT.BUFFER,  52, 29)  =  ”} 

END; 

RETURN (FRSTREC  POS); 

END  FRSTREC! 


E  -  12 


/•  READOUT  2.3  */ 


DATE:  1  SEP  S3 
VERSION:  1.0 
NAME:  READOUT 
HOOULE  NUMBER:  2.3 

FUNCTION:  CREATES  OUTPUT  LOS  FOR  THE  USER,  AM  CREATES  THE 
INPUT  DATA  FILE  FOR  SCHHBILD. 

INPUTS:  RECIN  BUFFER  -  160  CHARACTER  INPUT  BUFFER 
RECOUT.BUFFER  -  80  CHARACTER  OUTPUT  BUFFER 

OUTPUTS: 

6L0BAL  VARIABLES  USED: 

6L0BAL  VARIABLES  CHANSED: 

6L0BAL  TABlES  USED: 

FILES  read: 

FILES  NRITTEN:  SYSPRINT  FILE 
S2K0UT 

NODULES  CALLED: 

CALLING  NODULES:  RDSCHN 

author:  capt  jerry  omens 

HISTORY: 


READOUT:  PROCEDURE  (RECIN  BUFFER, RECOUT.BUFFER  > i 
DCL  RECIN  BUFFER  CHAR(160)5 
DCL  RCCOtlTJUFFER  CHARM)  i 
DCL  INFOSEP  CHAR  (100)  INIT  ((100)'*’); 

PUT  SKIP; 

PUT  SKIP; 

PUT  SKIP; 

PUT  EDIT  (INFOSEP)  (COL(D,A); 

PUT  EDIT  (’t’,SUBSTR(RECIN_BUFFER, 1,80),’*’) 
(C0L(l),AtC0L(U)|A,C0L(100),A); 

PUT  EDIT  (’*’, SUBSTRIRECIN.BUFFER, 81,80), ’»’) 

(COL ( 1) , A, COL ( 1 1 ) , A, COL ( 1009 , A) ; 

PUT  EDIT  (•#’, RECOUT.BUFFER,’ *’)  (C0L(1),A,C0L(11),A,C0L(100),A); 
PUT  EDIT  (INFOSEP)  (C0L(1),A>{ 

PUT  SKIP; 

PUT  SKIP; 

PUT  FILE(S2KTEHP)  EDIT  (RECOUT.BUFFER) (C0L(1),A(S0))5 
END  READOUT; 


t««l 


It  GETNUN  2.4  •/ 

/HWHHHHHHHHtl 

•  DATE:  24  AUG  B3 

•  VERSION:  1.0 
t  NAME:  GETNUN 

•  NODULE  NUMBER*.  2.4 

«  FUNCTION:  FIND  THE  S2K  COMPONENT  ID  FOR  EACH  INPUT  RECORD  IF  * 

•  ONE  EXISTS.  IT  NILL  THEN  PLACE  TIE  NUMBER  INTO  THE  ♦ 

•  OUTPUT  RECORD  BEING  CREATED  FOR  USE  IN  THE  IONS  • 

•  SCHEMA  TRANSLATION.  • 

•  INPUTS!  RECIN  BUFFER  -  160  CHARACTER  INPUT  BUFFER  ♦ 

«  RECOUT  BUFFER  -  80  CHARACTER  OUTPUT  BUFFER  » 

•  6ETNUH  POS  STARTING  POSISTION  IN  RECIN.BUFFER  • 

t  ’  FIXED  BIN(IS)  « 

i  OUTPUTS:  BETNUN  POS  -  RETURNS  THE  POSISTION  IN  THE  INPUT  • 

•  BUFFER,  ONE  POSISTION  PAST  THE  SYSTEM  t 

•  8EPERAT0R.  • 

t  RECOUT  BUFFER  -  IS  UPDATED  TO  CONTAIN  THE  NUMBER  FOUND  t 

»  GLOBAL  VARIABLES  USED:  * 

t  GLOBAL  VARIABLES  CHAN6E0:  • 

t  6L0BAL  TABLES  USED:  • 

«  FILES.  READ:  • 

t  FILES  NRITTEN:  * 

•  NODULES  CALLED:  NONBLNK,  FINDPAT,  SUBSTR  # 

•  CALLING  NODULES:  RDSCHN  * 

•  AUTHOR:  CAPT.  JERRY  ONENS  * 

t  HISTORY:  * 


*/ 

BETNUN:  PROCEDURE  (RECIN  BUFFER, RECOUT  BUFFER, GETNUN.PDS)  RETURNS 
(FIXED  BINUSIM 
DCL  RECIN  BUFFER  CHAR (160) I 
DCL  RECOUT.BUFFER  CHAR (BO) I 
DCL  6ETNUN.P0S  FIXED  BIN(IS); 

DCL  6ETNUN.FRST  FIXED  B1N(15)| 

DCL  GETNUN.END  FIXED  BIN(iS); 

DCL  6ETNUN.LN6TH  FIXED  BINU5M 

DCL  SYSTEN  SEP  CHAR 120)  VAR  1NIT  ('*  ')J 

DCL  ID.NUNBER  CHAR(4)| 

It 


L' 

I’ 


f  CHECK  FOR  BLANK  LINE.  IF  6ETNUN.P0S  >  0  THEN  THE  • 
«  CURRENT  LINE  IS  BLANK.  » 


GETNUN.POS  «  NONBLNK (RECIN.BUFFER, GETNUN.POS) | 
IF  GETNUN.POS  >  0  THEN 
DO? 

GETNUN  FRST  «  GETNUN  POS! 


E  -  14 


R 


i  . 


/* 

t  CHECK  FOR  THE  S2K  SYSTEM  SEPERATOR.  IF  6ETNUM.END  >  O* 

•  THEN  THERE  IS  NOT  A  SYSTEM  SEPERATOR  IN  THE  CURRENT  • 

•  LINE,  THEREFORE  IT  IS  INVALID.  • 

•/ 

6ETNUM  END  *  FINDPATIRECIN  BUFFER, 6ETMUH_P0S, SYSTEM.SEP) ! 
6ETNUM*P0S  *  6ETNUM  END; 


•  SET  THE  CURRENT  S2K  COMPONENT  NUMBER  AND  ITS  LEN6TH  « 

#/ 

IF  6ETNUR.END  >  0  THEN 

oo; 

6ETNUM  POS  >  6ETNUH  POS  ♦  ii 

6ETNUN  LN6TH  «  6ETNUM  END  -  6ETNUH.FRST; 

ID  NUMBER  >  SUBSTR (REC IN  BUFFER , 6ETNUM  FRST , 6ETNUH_LN6TH) | 
SuisTR (R£COUT_BUFFER, 1 , 4)  -  1D.NUMBER; 

END; 

END; 

RETURN  (BETNUM  POS); 

END  6ETNUH; 


E  -  15 


GETNAME  2.S  */ 


■tt 


DATE:  24  AM  83 
VERSION:  1.0 
DANE:  GETNAME 
NODULE  NUMBER:  2.5 

FUNCTION:  FIND  THE  COMPONENT  NAME  OF  EACH  S2K  COMPONENT  STMT 
PASSED.  TRUNCATE  THE  NAME  TO  50  CHARACTERS. 
REPLACE  ALL  IDHS  ILLEGAL  CHARACTERS  HITH 
INPUTS:  RECIN.SUFFER  -  160  CHARACTER  INPUT  BUFFER 
RECOUT  DUFFER  -  80  CHARACTER  OUTPUT  BUFFER 
SETNAMe'.POS  -  STARTIN6  POSISTIOM  IN  THE  INPUT 
DUFFER.  FIXED  BIN(15> 

OUTPUTS:  6ETNANE  POS  -  POSISTION  IN  THE  INPUT  BUFFER,  ONE 
PAST  THE  NAME. 

RECOUT  BUFFER  -  IS  UPDATED  TO  CONTAIN  THE  NAME 


RECOUT  BUFFER 
SETNAME  POS 


OUTPUTS:  6ETNANE  POS  - 


RECOUT  BUFFER  -  IS  UPDATED  TO  CONTAIN  THE 
SLOBAL  VARIABLES  USED: 

GLOBAL  VARIABLES  CHANGED: 

GLOBAL  TABLES  USED: 

FILES  READ: 

FILES  NRITTEN: 

MODULES  CALLED:  FINDPAT,  NONBLNK,  SUBSTR, TRANSLATE 
CALLING  NODULES:  ROSCHH 
AUTHOR:  CAPT.  JERRY  ONENS 
HISTORY: 


*/ 

GETNAME:  PROCEDURE  ( REC I N_BUFFER , RECOUT.BUFFER v 6ETNAHE  POS)  RETURNS 
(FIXED  BIN(15))i 
DCL  RECIN.BUFFER  CHAR (160); 

DCL  RECOUT.BUFFER  CHAR  (BO); 

DCL  GETNAME*  POS  FIXED  BIN(15); 

DCL  GETNAME  START  FIXED  BIN(IS); 

DCL  GETNAME  END  FIXED  BIN(15); 

Da  GETNAME  LN6TH  FIXED  B!N(15); 

DCL  S2K.NAME  CHAR (50) j 
Da  TEHP.NAME  CHAR  (50)  VAR; 

DCL  INVALID  CHR  CHAR (21)  INITC  ■<;:!>  ♦!:!!«?/:. :,’); 

Da  REPLACE.CHR  CHAR (21)  INITC - - *); 

/t 

MHHMHHHMHHMtHItlHHHHHHHHt ttmttt 

•  GET  THE  POSITION  OF  THE  NEXT  NON-BLANK  CHARACTER  t 

WMHHHHHHHIWHHHIHHHfiWtHflHMtf 

•/ 

6ETNAME.P0S  >  NONBLNK (RECIN  BUFFER, GETNAME  POS); 

GETNAME  START  *  GETNAME  POS; 


E  -  16 


/* 

WHtttttttttttftfttttttfttttttHttfiHtfHtfttttttM 

•  FIND  THE  S2K  COMPONENT  NAME  •' 

HHtftHfltHHHHtlHHtfHItHHHHHHHHHM 

*/ 

BETNAHE  END  »  FINDPAT (RECIN  BUFFER, BETNAHE  POS,’  (Mi 
6ETNAHE  POS  «  BETNAHE  END;  * 

BETNAHE  LNBTH  *  BETNAHE  END  -  BETNAHE  START; 

TEHP.NAHE  >  SUBSTR ( REC I N.BUFFER , BETNAHE  START, BETNAHE  LN6TH); 

/# 

tmtmtmtttttmmfttttHmtHttttttmtmt 

*  REPLACE  ALL  INVALID  IMS  CHARACTERS  NITH  * 

«  HYPHENS.  i 


•/ 

TEMP  NAHE  >  TRANSLATE (TEHP  NAME, REPLACE  CHR, INVALID  CHR); 
S2K  NAHE  «  TEHP  NAHE; 

SUBSTRIRECOUT  BUFFER, 10,30)  >  S2K  NAHE; 

RETURN (6ETNAHE  POS); 

ENO  BETNAHE; 


/*  SETT YPE  2.4  #/ 

/mHHMHHHHHHHHHHHHHHHHHHHMHHMfMIHHHHI 

•  PATE:  24  A06  83  * 

•  VERSION:  1.0  * 

•  NAME:  6ETTYPE  * 

•  NODULE  NUMBER!  2.6  * 

•  FUNCTION:  OETERNINE  WHETHER  THE  PASSED  S2K  SCHEMA  INPUT  STHT  • 

•  IS  A  RECORD,  INT6ER,  DECIMAL,  CHARACTER,  TEIT,  MONET,# 

•  DATE  INPUT  STATEMENT.  • 

•  INPUTS:  RECIN  BUFFER  *  160  CHARACTER  INPUT  BUFFER  • 

•  RECOUT  BUFFER  -  BO  CHARACTER  OUTPUT  BUFFER  • 

t  0ETTYPE  POS  -  ST ART INS  POSISTION  IN  THE  INPUT  • 

•  '  BUFFER.  FIXED  BIN11S)  • 

•  REC  CUT  -  NUMBER  OF  RECORDS  PROCESSED  * 

t  ELEM.CNT  -  NUMBER  OF  ELEMENTS  PROCESSED  • 

•  OUTPUTS:  RECOUT  BUFFER  -  IS  UPDATED  TO  CONTAIN  THE  TYPE  INFO  # 

•  REC  CUT,  ELEM.CNT  • 

«  GLOBAL  VARIABLES  USED:  * 

•  GLOBAL  VARIABLES  CHAN6E0:  * 

»  GLOBAL  TABLES  USED:  • 

•  FILES  READ:  * 

t  FILES*  WITTEN*  * 

•  NODULES  CALLED:  FINDPAT,  RECFND,  1NTFN0,  CHRFND,  DATFND,  # 

•  DECFND,  MONEY  • 

•  CALLIN6  NODULES:  RDSCHH  * 

•  AUTHOR:  CAPT.  JERRY  OMENS  • 

•  HISTORY:  * 

mm##***#**##***##*##############*###*################**#*#*#####*#/ 


#/ 

6ETTYPE:  PROCEDURE  (RECIN  BUFFER, REC0UT.BUFFER,6ETTYPE_P0S, 
REC.CNT, ELEM.CNT); 

DCL  RECIN  BUFFER  CHAR(160)| 

DCL  RECOUT  BUFFER  CHAR (BO); 

DCL  6ETTYPE.P0S  FIXED  BIN(IS); 

DCL  REC  CNT  FIXED  BIN(IS); 

DCL  ELEN  CNT  FIXED  BIN(15); 

DCL  REC.TYPE  FIXED  BIN(IS); 

/# 

####*###•••*##*#**•***••#**##••#•••**#*#*••*****##*##*** 
#  IS  THE  CURRENT  S2K  COMPONENT  A  RECORD  ?  * 


#/ 

REC  TYPE  «  FINDPAT (RECIN.BUFFER, BETTYPE. POS, ’RECORD’ ) ; 
IF  REC.TYPE  >  0  THEN  D0{ 

REC  CNT  «  REC.CNT  ♦  1; 

CALL  RECFND (RECIN.BUFFER, RECOUT.BUFFER, REC.TYPE) 5 
END; 

ELSE  DO; 

ELEM.CNT  *  ELEM.CNT  ♦  1{ 

/* 


1 1 


E  -  18 


•  IS  THE  CURRENT  ITEM  COMPONENT  Ml  INTEGER  ?? 


NEC  TYPE  >  F1NOPAT (RECIN  BUFFER, 6CTTYPE  POS, 
'INTEGER  NUMBER  ’){ 

IF  REC.TYPE  >  0  THEN 

CALL  INTFND (RECIN  BUFFER, RECOUT  BUFFER, REC  TYPE); 
ELSE  BOI 


•  IS  THE  CURRENT  COMPONENT  A  CHARACTER  FORMAT  ??  • 

If Htf till I I ttttif titif ttlttf tttfttttttf fill ttttfttttf If Itftt 

/ 

REC.TYPE  •  FINOPAT (R£CIN.BUFFER,GETTYPE.POS, 
'CHAR  |’)j 

IF  REC  TYPE  *  0  THEN 

REC.TYPE  «  FINOPAT (RECIN  BUFFER, GETTYPE.POS, 
’TEXT  I'll 

IF  REC  TYPE  >  0  THEN 

CALL  CHRFND ( REC I N.BUFFER , RECOUT.BUFFER , REC.TYPE) ; 

ELSE  Mi 


•  IS  THE  CURRENT  ITEM  COMPONENT  A  DATE  ??? 


REC  TYPE  *  FINDPAT (RECIN  BUFFER, 6ETTYPE  POS, 
’DATE’); 

IF  REC  TYPE  >  0  THEN 

CALL  OATFND (RECIN.BUFFER, RECOUT.BUFFER, REC.TYPE) ; 
ELSE  DO; 


•  IS  THE  CURRENT  COMPONENT  A  DECIMAL  NUMBER  ?? 


REC  TYPE  «  FINDPAT (RECIN  BUFFER, GETTYPE.POS, 
’DECIMAL  NUMBER  ’)! 

IF  REC.TYPE  >  0  THEN 

CALL  OECFND (RECIN.BUFFER, RECOUT.BUFFER, REC.TYPE ) S 
ELSE  DO; 


•  IT  MUST  A  MONEY  COMPONENT. 
*************************************************** 


REC.TYPE  ■  FINDPAT(RECIN.BUFFER, GETTYPE.POS, 

’MONEY  «’){ 

CALL  MONEY (RECIN.BUFFER , RECOUT.BUFFER, REC.TYPE) ; 
END; 

END!  /•  DECIMAL  NUMBER  •/ 

END)  /•  DATE  «/ 


E  -  19 


/•  RECFND  2.6.1  ♦/ 

»  SATE:  30  AUG  83 
«  VERSION.'  1.0 
t  NAME:  RECFNO 

•  MODULE  NUMBER:  2.6.1 

•  FUNCTION:  SET  THE  NECESSARY  INFO  FOR  AN  1DMS  RECORD 

•  INPUTS:  RECIN.BUFFER  -  160  CHARACTER  INPUT  BUFFER 

t  RECOUT  BUFFER  -  80  CHARACTER  OUTPUT  BUFFER 

«  REC.POS  -  P0SIST10N  TO  START  SEARCH 

•  OUTPUTS:  RECOUT.BUFFER  IS  MODIFIED  TO  CONTAIN  THE  INFO 

t  GLOBAL  VARIABLES  USED: 

•  6L0BAL  VARIABLES  CHAN6ED: 

«  GLOBAL  TABLES  USED: 

t  FILES  READ: 
t  FILES  NRITTEN: 

•  MODULES  CALLED:  SUBSTR,  TRANSLATE,  LEN6TH,  FINDPAT 

•  CALLING  MODULES:  GETTYPE 
»  AUTHOR:  CAPT  JERRY  OWENS 

•  history: 


/# 
t  / 

RECFND:  PROCEDURE  (RECIN.BUFFER, RECOUT.BUFFER, REC.POS) i 
BCL  RECIN  BUFFER  CHAR (160); 

DCL  RECOUT  BUFFER  CHAR (BO); 

JCl  REC  TEMP  FIXED  BINI15); 

DCL  RECONNER  LN6TH  FIXED  BINII5)) 

DCL  RECONNER.START  FIXED  BIN(15)l 
DCL  RECONNER  END  FIXED  BINU5); 

DCL  REC  POS  FIXED  BINI15M 
DCL  RECFND.TYPE  CHAR (4) i 
DCL  REC.ONNER  CHAR (4); 

DCL  REC.NANE  CHAR (16); 

REC.NAHE  «  SUBSTR (RECOUT.BUFFER, 10,16); 

/* 


«  INSURE  THAT  THE  NAME  DOES  NOT  END  NITH  A  HYPHEN  * 

#/ 

SUBSTR (REC.NAHE, 16,1)  * 

TRANSLATE (SUBSTR (REC.NAHE, 16,1),’ 

RECFND  TYPE  -  *REC  ’5 

REC  TEMP  «  REC  POS  ♦  LEN6TH (RECFND  TYPE); 


IF  REC  POS  <  0  THEN  THIS  RECORD  IS  ONNED  BY  RECORD  ZERO,* 
OTHERWISE  BUST  SCAN  THE  REST  OF  THE  INPUT  STR1N6  TO  FIND* 
WHO  THE  OWNER  IS.  * 


it 

REC.POS  *  FINDPAT (RECIN.BUFFER, REC.TEHP, ’ IN  ')* 

IF  REC  POS  =  0  THEN  REC.ONNER  *  ’O  ’; 

ELSE ‘DO; 

REC.TEHP  *  REC.POS  +  3} 

RECONNER  START  =  REC  TEHPi 

RECONNER.END  =  FINDPAT (REC1N.BUFFER, REC.TEHP, ’ )  ’ ) i 

RECONNER  LNSTH  =  RECONNER  END  -  RECONNER  START; 

REC  ONNER  *  SUBSTR (RECI N.BUF FER , RECQNNER.ST ART , 
REC0NNER.LN6TH); 

END; 

SUBSTR (RECOUT.BUFFER, 10,16)  -  REC.NAHE) 

SUBSTR (RECOUT. BUFFER ,24,17)  *  ' 

SUBSTR (RECOUT  BUFFER, 43, 4)  -  REC.ONNER; 

SUBSTR (RECOUT.BUFFER, 47,1)  «  ’ 

.SUBSTR (RECOUT.BUFFER, 48, 4)  =  RECFND.TYPE} 

SUBSTR ( RECOUT.BUFFER, 52 , 29 )  *  **; 

END  RECFNO; 


/*  INTFND  2.6.2  •/ 

#  DATE:  30  ADS  S3 

*  VERSION:  1.0  < 

*  NAME:  INTEND 

<  NODULE  NUNBER:  2.6.2 

»  FUNCTION:  FIND  THE  NECESSARY  INFO  FOR  AN  1DNS  INTE6ER  ITEM. 

*  INPUTS:  RECIN.BUFFER  -  160  CHARACTER  INPUT  BUFFER 

♦  RECOUT  BUFFER  -  80  CHARACTER  OUTPUT  BUFFER 

«  INTFND  >0S  -  STARTINS  POSISTION  IN  BUFFER 

«  OUTPUTS:  RECOuf  BUFFER  IS  MODIFIED  TO  CONTAIN  THE  INFO 
t  GLOBAL  VARIABLES  USED: 
t  6L0BAL  VARIABLES  CHANGED: 

•  GLOBAL  TABLES  USED: 

*  FILES  READ: 

«  FILES  written: 

<  NODULES  CALLED:  SUBSTR,  TRANSLATE,  F1NDPAT 

•  CALLING  NODULES:  6ETTYPE 

•  AUTHOR:  CAPT  JERRY  ONENS 

«  history: 


/# 

*1 

INTFND:  PROCEDURE  IRECIN_BUFFER,R£COUT.BUFFER,INTFND.POS) i 
DCL  RECIN  BUFFER  CHAR (160); 

DCL  RECOUT  BUFFER  CHAR (BO) i 
DCL  INTFND  TENP  FILED  B1MU5)! 

DCL  INTFND  LAST  FIXED  BIN(IS) i 
DCL  INTFND.FRST  FILED  BIN(15)i 
DCL  INTFND.LN6TH  FILED  BIN(15)J 
DCL  INT0NNER.LN6TH  FILED  BIN115); 

DCL  INTONNER.START  FILED  BIN(IS); 

DCL  INTONNER.END  FILED  BIN(IS); 

DCL  INTFND.POS  FILED  BINU5); 

DCL  JNTFND.TYPE  CHAR (4) i 
DCL  INTFND.ONNER  CHAR (4); 

DCL  INTFNO.NAHE  CHAR (32) I 
DCL  INTFND.OESC  CHARU6); 

INTFND.ONNER  =  '0  ’! 

INTFNO.NAHE  *  SUBSTR (RECOUT. BUFFER, 10,32); 

/♦ 

«  HAKE  SURE  NAHE  DOES  NOT  END  NITH  A  HYPHEN  * 


#/ 

SUBSTR (INTFND.NAHE, 32,1)  = 

TRANSLATE (SUBSTR (INTFND  NAHE,32,1>,’ 
INTFND.TYPE  *  ’PIC  ’! 


,'  V  Wy. 


/* 


♦  IS  DEFINITION  IN  THE  FQRH  PIC  9(9...)  ?'* 


INTFND  FRST  »  FINDPAT (RECIN  BUFFER, INTFND  TEMP, ’9(* ) ; 
IF  INTFND  FRST  >  0  THEN  DO) 

INTFND.LAST  *  FINDPAT (R£CIM_BUFFER, INTFND.FRST, ’ ) ’ ) i 
INTFND.LN6TH  =  (INTFND.LAST  -  INTFND.FRSTl  ♦  l; 

END) 

ELSE  DO,’ 

/# 


MUST  BE  IN  THE  FORK  OF  9999  • 


INTFND.FRST  =  FINDPAT (RECIN.BUFFER, INTFND.TEHP, ’9’ > ( 
INTFND.LAST  *  FINDPAT (RECIN.BUFFER, INTFND.FRST,  ’9)  ’ ) 5 
IF  INTFND.LAST  >  0  THEN 

INTFND  LNSTH  =  (INTFND  LAST  -  INTFND  FRST)  +  1; 

ELSE  DO; 

INTFND.LAST  =  FINDPAT (RECIN.BUFFER, INTFND.FRST, 
*9  ’); 

INTFND  LNSTH  *  (INTFND.LAST  -  INTFND  FRST)  ♦  l; 
END! 

end; 

/* 

tiHIIHHHIWHIHHHtHtlHIHiHHIHIH 

«  DOES  THIS  ITEH  BELON  TO  S2K  RECORD  ZERO  ?  t 
*  IF  INTFND.TEHP  >  0,  THEN  ’IN'  NAS  FOUND  # 
t  NHICH  HEARS  A  RECORD  ONNER  NILL  FOLLON.  * 

*fffl«**(*t*H*fHt***«t*t»tt**ft*t**tttt*Htl 

*/ 

INTFND.TEHP  =  FINDPAT (RECIN.BUFFER, INTFND.LAST, ’IN  ’); 

IF  INTFND  TEHP  >  0  THEN  DO; 

INTONNER.START  «  INTFND.TEHP  ♦  3; 

INTONNER.END  =  FINDPAT (RECIN.BUFFER, INTFND.TEHP, 

’  NITH  ’)’, 

IF  INTONNER.END  *  0  THEN 

INTONNER  END  *  FINDPAT (RECIN.BUFFER, INTFND  TEHP,’)  ’); 
INT0NNER.LN6TH  *  INTONNER.END  -  INTONNER.START; 
INTFND.ONNER  -  SUBSTR  ( RECI*N.BUFFER,  INTONNER.START , 
INTONNER  LNSTH); 


|t] 


INTFND  OESC  *  SUBSTR IRECIN.BUFFER,  INTFND.FRST,  IMTFND_LWTH)  I 
SUBSTRIRECOUT.BUFFER,  10,32)"  «  1NTFN0.NARE; 

SUBSTRIRECOUT  BUFFER, 42,1)  «’  ’i 
SUBSTRIRECOUT  BUFFER, 43, 4)  *  1NTFND.0NNER} 

SUBSTRIRECOUT  BUFFER, 47,1)  *  *  ’{ 

SUBSTRIRECOUT  BUFFER, 48, 4)  *  UKTFMD.TYPEJ 
SUBSTRIRECOUT  BUFFER, 52,1)  *  '  ’I 
SUBSTRIRECOUT  BUFFER, 53, IB)  *  1RTFM.DESC) 

SUBSTR (RECOUT_BUFFER, 69, 1 )  *  ’  ’1 
SUBSTRIRECOUT  BUFFER, 70,8)  *  ’CDW>-3’» 

SUBSTRIRECOUT.BUFFER, 76,5)  *  ’  ’I 


^  /V; 


/ 

r 


CHRFND  2.6.3  */ 


DATE:  30  AU6  83 
VERSION:  1.0 
NAME:  CHRFND 
NODULE  NUMBER:  2.6.3 

FUNCTION:  6ET  THE  NECESSARY  INFO  FOR  AN  IDNS  CHARACTER  ITEM. 
INPUTS:  RECIN.BUFFER  -  160  CHARACTER  INPUT  BUFFER 
RECOUT  BUFFER  -  80  CHARACTER  OUTPUT  BUFFER 
CHRFND >0S  -  STARTING  POSISTIDN  IN  INPUT  BUFFER 

OUTPUTS:  RECOUT  BUFFER  IS  MODIFIED  TO  CONTAIN  THE  INFO 
GLOBAL  VARIABLES  USED: 

GLOBAL  VARIABLES  CHANGED: 

GLOBAL  TABLES  USED: 

FILES  READ: 

FILES  BRITTEN: 

NODULES  CALLED:  SUBSTR,  TRANSLATE,  F1NDPAT 
CALLING  MODULES:  GETTYPE 
AUTHOR:  CAPT  JERRY  ONENS 
HISTORY: 


CHRFND:  PROCEDURE  (REC I N.BUFFER , RECOUT .BUFFER , CHRFND_POS) J 
DCL  RECIN  BUFFER  CHARU60); 

DCL  RECOUT.BUFFER  CHAR (80)5 
DCL  CHRFND, TEMP  FIXED  BIN (151 f 
DCL  CHRFND  LAST  FIXED  B1N(15>{ 

DCL  CHRFND  FRST  FIXED  BIN(IS); 

DCL  CHRFND.LN6TH  FIXED  BIN(iS); 

DCL  CHRONNEfi.LNGTH  FIXED  BINU5); 

DCL  CHR0NNER.5TART  FIXED  BJN(15)| 

DCL  CHROHNER.END  FIXED  BIN<15)5 
DCL  CHRFND.POS  FIXED  BIN (15); 

DCL  CHRFND  TYPE  CHAR (4) J 
DCL  CHRFND JONNER  CHAR (4); 

Da  CHRFND.NAME  CHAR (32); 

DCL  CHRFND  DESC  CHAR (16); 

CHRFND  OMNER  =  ’0  ’i 

CHRFND  NAME  *  SUBSTR (RECOUT.BUFFER, 10,32); 


•  HAKE  SURE  NAME  DOES  NOT  END  NITH  A  HYPHEN  • 

*1 

SUBSTR (CHRFND.NAME, 32,1)  - 
TRANSLATE (SUBSTR (CHRFND.NAME, 32,1),’  ’,’-’); 
CHRFND.TYPE  *  'PIC  ’{ 

CHRFND.TEMP  *  CHRFND.POS  ♦  55 


E  -  26 


CHRFND.FRST  *  FINOPAT (RECIN.BUFFER, CWiFND.TEHP, '!(*)» 
IF  CHRFMD  FRST  >  0  THEN  DO} 

CHRFND  LAST  «  F I NDPAT ( REC I N.BUFFER , CHRFHD  FRST,’)’)} 
CHRFND  LN6TH  -  (CHRFND  LAST  -  CHRFND  FRSTl  ♦  1} 

END; 

ELSE  DO} 

/« 

HHHHfWHHHHHHHHHill 

*  ITEM  IS  IN  THE  FORH  OF  IUU1  * 


t  / 

CHRFND.FRST  «  FINDPAT  (REC IN. BUFFER, CHRFND.TEHP,  ’I’M 
CHRFND’lAST  =  FINDPATtRECIN.BUFFER, CHRFND.FRST, 'I)')J 
IF  CHRFND.LAST  >  0  THEN 

CHRFND  LNBTH  =  (CHRFND.LAST  -  CHRFND  FRST)  ♦  1} 
ELSE *00} 

CHRFND.LAST  =  FINDPAT (RECIN.BUFFER, CHRFND.FRST, 
’I  ’)} 

CHRFND  LN6TH  «  (CHRFND.LAST  -  CHRFND.FRST)  +  I; 
END; 

END; 

/* 

WIWIHWIWWWHWIlHtfHHIfHWWWHWHMH 

•  IS  S2K  RECORD  ZERO  THE  ONNER  OF  THE  ITEM  ?  * 


CHRFND  TEHP  *  F I NOPAT ( REC I N.BUFFER , CHRFND.LAST,’ IN  ’>; 

IF  CHRFND.TEHP  >  0  THEN  DO; 

CHRONNER.START  *  CHRFND.TEHP  ♦  3} 

CHRONNER  END  =  FINDPATIRECIN.BUFFER, CHRFND. TEHP, 

’  NITH  ’)’} 

IF  CHRONNER.END  *  0  THEN 

CHRONNER.END  *  FINDPAT(RECIN.BUFFER, CHRFND.TEHP,’)  ’){ 
CHR0NNER.LN6TH  «  CHRONNER.END  -  CHRONNER.START; 

CHRFND  OWNER  *  SUBSTR (RECIN.BUFFER, CHRONNER.START, 
CHRONNER.LNSTH); 

END; 

CHRFND.DESC  «  SUBSTR (RECIN.BUFFER, CHRFND.FRST, CHRFND.LN6TH) j 
SUBSTRiRECOUT  BUFFER, 10,32)  »  CHRFND.NAHEi 
SUBSTR (RECOUT ‘BUFFER, 42,1)  =  ’  ’} 

SUBSTR (RECOUT  BUFFER, 43, 4)  *  CHRFND.ONNER; 

SUBSTR(RECOUT ‘BUFFER, 47,1)  *  ’  ’} 

SUBSTR (RECOUT  BUFFER, 48, 4)  *  CHRFND  TYPE; 

SUBSTR (RECOUT  BUFFER, 52,1)  >  ’ 

SUBSTR (RECOUT  BUFFER, 53, 16)  >  CHRFND.DESC; 

SUBSTR (RECOUT  BUFFER, 69, 12)  *  ’  '1 

END  CHRFND; 


■>  V  *.  •. 


/*  DATFND  2.6.4 


*1 


•  DATE:  30  AUG  83 
«  VERSION:  1.0 

t  NAME:  DATFND 
i  MODULE  NUMBER:  2.6.4 

•  FUNCTION:  SET  THE  NECESSARY  INFO  FOR  AN  1DHS  DATE  ITEM 
t  INPUTS:  RECIN  BUFFER  -  160  CHARACTER  INPUT  BUFFER 

•  RECOUT  BUFFER  -  80  CHARACTER  OUTPUT  BUFFER 

•  DATFND  POS  -  P0S1STI0N  TO  START  IN  BUFFER 

t  OUTPUTS:  RECOUT  BUFFER  IS  MODIFIED  TO  CONTAIN  THE  INFO 
«  GLOBAL  VARIABLES  USED: 

•  6L0BAL  VARIABLES  CHAN6ED: 
t  GLOBAL  TABLES  USED: 

•  FILES  READ: 

t  FILES  HRITTEN: 

i  MODULES  CALLED:  SUBSTR,  TRANSLATE,  F1NDPAT 
«  CALLING  NODULES:  6ETTYPE 
t  AUTHOR:  CAPT  JERRY  OMENS 
t  HISTORY: 


/* 


*/ 

DATFND:  PROCEDURE  (RECIN  BUFFER, RECOUT.BUFFER, DATFND  POS); 
DCL  RECIN  BUFFER  CHAR (160); 

DCL  RECOUT  BUFFER  CHAR(80); 

DCL  DATFND.TEMP  FIXED  BIN (13); 

DCL  DATONNE'r  LN6TH  FIXED  BIN(IS); 

DCL  DATOMNER  START  FIXED  BIN(IS); 

DCL  DATOMNER  END  FIXED  BINI15); 

DCL  DATFND.POS  FIXED  BIN(IS); 

DCL  DATFND  TYPE  CHAR (4) j 
DCL  DATFND.ONNER  CHAR (4); 

DCL  DATFND.NAME  CHAR (32)} 

DCL  DATFND.DESC  CHAR ( 16) ; 

DATFND.ONNER  *  ’0  ’} 

DATFND  NAME  =  SUBSTR (RECOUT  BUFFER, 10, 32); 

/» 

«  HAKE  SURE  DOES  NOT  END  MITH  A  HYPHEN  < 

mtmimtMtmmmmtmttmtmiftmtftfmffH 

«/ 

SUBSTR (DATFND  NAME, 32,1)  * 

TRANSLATE (SUBSTR (DATFND  NAME, 32,1),’  ’,’-’)} 
DATFND  TYPE  «  ’PIC  ’| 

DATFND  TEMP  *  DATFND  POS  ♦  4; 


E  -  28 


■*  -■  *  **  f?— 


m 


t  IS  THIS  ITEM  OWNED  BY  S2K  RECORD  ZERO  ??  '  • 


DATFND  TEHP  *  FINOPAHRECIN  BUFFER, DATFND  TEHP, ’IN  ’)| 

IF  DATFND.TEHP  >  0  THEN  DO; 

DATONNER.START  *  DATFND.TEHP  ♦  3; 

DATOMNER  END  *  FINDPAT (RECIN  BUFFER, DATFND  TEHP, 

*  WITH  ’)"{ 

IF  OATQttNER  END  =  0  THEN 

DATONNERJND  =  FINDPAT IRECIN.BUFFER, DATFND.TEHP,’)  *)j 
DATOMNER  LN6TH  *  DATOMNER  END  -  DATOMNER  START; 
DATFND.ONNER  *  SUBSTR IRECIN.BUFFER, DATONNER.START, 
DAT0NNER.LN6TH) { 

END; 

SUBSTR (RECOUT.BUFFER, 10,32)  «  DATFND.NAHE; 

SUBSTR IRECOUT’ BUFFER, 42,1)  *  ’  '5 
SUBSTR (RECOUT.BUFFER, 43, 4)  *  DATFND.ONNER; 

SUBSTR (RECOUT  BUFFER, 47,1)  *  ’  ’! 

SUBSTR ( RECOUT  BUFFER ,48,4)  «  DATFND  TYPE; 

.SUBSTR (RECOUT* BUFFER, 52,1)  *  ’  ’} 

SUBSTR (RECOUT  BUFFER, 53, IB)  «  ’9(7)  ’) 

SUBSTR (RECOUT* BUFFER, 69,1)  «  ’  ’} 

SUBSTR (RECOUT  BUFFER, 70, 6)  *  ’COHP-3’; 

SUBSTR (RECOUT.BUFFER, 76,5)  «  ’  ’! 

END  DATFND; 


/•  DECFND  2.6.3  #/ 

/•MHHHHHHHHHHMHHHIIIimmiMHmiHHtmHIHI 

•  DATE:  30  AU6  83 

•  VERSION:  1.0 

•  NAME:  DCCFND 

•  NOODLE  NUMBER:  2.6.3 

t  FUNCTION:  6ET  THE  NECESSARY  INFO  FOR  AN  IONS  DECIMAL  ITEM 

•  INPUTS:  RECIN.BUFFER  -  160  CHARACTER  INPUT  BUFFER 

•  RECOUT.BUFFER  -  80  CHARACTER  OUTPUT  BUFFER 

t  DECFND.POS  -  START1NS  POSISTION  IN  INPUT  BUFFER 

•  OUTPUTS!  RECOUT.BUFFER  IS  MODIFIED  TO  CONTAIN  THE  INFO 

•  6L0BAL  VARIABLES  USED: 

t  6L0BAL  VARIABLES  CHANGED: 

•  GLOBAL  TABLES  USED: 

•  FILES  READ: 

i  FILES  HRITTEN: 

•  MODULES  CALLED:  SUBSTR,  TRANSLATE,  F1NDPAT 
«  CALLING  NODULES:  6ETTYPE 

•  AUTHOR:  CAPT  JERRY  OMENS 

•  history: 


*1 

DECFND:  PROCEDURE  (RECIN  BUFFER, RECOUT.BUFFER, DECFND.POS); 
DCL  RECIN  BUFFER  CHAR (160); 

DCL  REDOUT  BUFFER  CHAR (SOI; 

DCL  DECFND  TEMP  FIXED  BINDS); 

DCL  DECFND  LAST  FIXED  BINDS); 

DCL  DECFND  FRST  FIXED  BINDS); 

DCL  DECFND.LN6TH  FIXED  BIN(15); 

DCL  DECOMNiR  LN6TH  FIXED  8INU5U 
DCL  DECOMNER .START  FIXED  BINDS); 

DCL  DECONNER.END  FIXED  BINDS); 

DCL  DECFND  POS  FIXED  BINDS); 

DCL  DECFND.TYPE  CHAR (4); 

DCL  DECFND.ONNER  CHAR (4); 

DCL  DECFND.NAME  CHAR  (32); 

DCL  DECFNO.DESC  CHARI 16 ); 

DECFND  OMNER  *  ’0  ’$ 

DECFND.NAME  *  SUBSTR (RECOUT.BUFFER, 10,32); 

/« 


•  INSURE  NAME  DOES  NOT  END  NITH  A  HYPHEN  • 


#/ 

SUBSTR (DECFND  NAME, 32,1)  = 

TRANSLATE  (SUBSTR  (DECFND.NAME,  32,1),’  '/-Ml 
DECFND  TYPE  *  'PIC  M 
DECFNO.TEHP  «  DECFND.POS  ♦  IS; 

DECFND.FRST  ■  F1NDPAT (RECIN.BUFFER, DECFND.TEMP, ’9’ >) 
OECFND.LAST  «  FINDPAT (RECIN.BUFFER, DECFND.FRST,’ 9  ’); 


•  IS  THE  DESCRIPTION  IN  THE  FORH  999.99  ??? 


» 


IF  DECFND  LAST  >  0  THEN 

DECFND.LN6TH  *  (DECFND. LAST  -  DECFND.FRST)  ♦  1} 
ELSE  DO; 

/* 

•f  fttiftf  f  f  f  tiff  if  fftf  if  fffftfff  ffff  f  f  if  fifffitiffffifti# 

#  NOPE  IS  IT  THE. FORH  999.99)  ?????  # 


DECFND  LAST  *  FINOPAT (RECIN  DUFFER, DECFND.FRST, '91  * ) ; 
IF  DECFND.LAST  >  0  THEN 

DECFND.LNSTH  *  (DECFND.LAST  -  DECFND.FRST)  ♦  1; 
ELSE  DO; 

/» 

tfHHHHHHttttMMttHMMHMMttffttMMHWMHttf 

»  NOPE  IS  IT  THE  FORH  9(X).9()())  OR  99.9(D)  ?????  t 


DECFND  LAST  -  FINOPAT (RECIN  BUFFER, DECFND  FRST, 
’))’); 

IF  DECFND  LAST  >  0  THEN 
DECFND.LNSTH  =  (DECFND.LAST  -  DECFND.FRST) 

♦  1! 

ELSE  DO; 

t 

HHiHHfHHIHHiHiHIIIHHHHHiHHiHHHHHHI 

t  IT  HUST  BE  9(D.9<D  OR  99.9(11)  ....  t 

iltHHHtlHHHIHWilUHIIIHIHHHHHIHHHiHH 

/ 

DECFND  LAST  =  FINOPAT (RECIN  BUFFER, 
DECFND.FRST,’)  ’); 
DECFND  LNSTH  «  (DECFND.LAST  - 

DECFND.FRST)  ♦  1; 

END; 


DECFND.TEHP  =  FINOPAT (RECIN.BUFFER, DECFND.LAST, 'IN  ’)! 


*  IS  THIS  ITEH  OWNED  BY  RECORD  ZERO  ????? 


IF  DECFND  TEMP  >  0  THEN  DO; 

OECONNER  START  *  DECFND  TEHP  ♦  3; 

DECOWNER  END  «  FINDPATtRECIN.BUFFER, DECFND.TEHP, 

’  NITH 

IF  OECONNER  END  >  0  THEN 

DECOWNER  END  *  FINOPAT (RECIN.BUFFER, DECFND.TEHP, ’ )  ’); 
OECONNER  LN6TH  «  DECONNER  END  -  DECOWNER.START; 


DECFND  OMNER  *  8UBSTR  <RECIW_BUFFER, DECONNER.START , 
DECONNER.LM6TH) { 

END! 

DECFND  DESC  *  SUBSTR(RECIN_BUFFER,DECFND_FRST,DECFND_LNGTH>! 

DECFND'.DESC  «  TRANSLATE (DECFND.DESC ,  ’  V* ,  * .  ’ )  t 

SU8STR?R£C0UTJUFF£R,10,32J  *  DECFNDJWNEJ 

SUBSTR (RECOUT” BUFFER, 42, 1 )  =  ’  ’i 

SUBSTR <R£COUT.BUFFER,  43, 4)  *  DECFND.ONNERJ 

SUBSTR ( RECOUT*  BUFFER, 47 , 1 )  «  ’  '! 

SUBSTR (RECOUT.BUFFER, 48, 4)  *  DECFND.TTPE, 

SUBSTR (RECOUT* BUFFER, 52, 1)  *  ’  ’I 
SUBSTRIRECOUT  BUFFER, 53, 16)  *  DECFND.DESCJ 
SUBSTR (RECOUT~ BUFFER, 69,1)  *  '  ’! 

SUBSTRIRECOUT  BUFFER, 70, 6)  »  ’COHP-3’! 

SUBSTR (RECOUT.BUFFER, 76,5)  *  ’  ’! 

END  DECFND! 


E  -  32 


/ 

/< 


HONEY  2.6.6  */ 


DATE:  30  AU6  83 
VERSION:  1.0 
NAME:  HONEY 
NODULE  NUMBER:  2.6.6 

FUNCTION:  SET  THE  NECESSARY  INFO  FROH  AN  S2K  HONEY  ITEH. 
INPUTS!  REC IN  BUFFER  -  160  CHARACTER  INPUT  BUFFER 
RECOUT.BUFFER  -  80  CHARACTER  OUTPUT  BUFFER 
HONEY  PDS  -  STARTING  POSISTION  IN  THE  BUFFER 
OUTPUTS:  RECOUT.BUFFER  IS  HODIFIEO  TO  CONTAIN  THE  INFO 
6L0BAL  VARIABLES  USED: 

6L0BAL  VARIABLES  CHAN6ED: 

6L0BAL  TABLES  USED: 

FILES  READ: 

FILES  MITTEN: 

NODULES  CALLED!  SUBSTR,  TRANSLATE,  FINDPAT 
CALLIN6  NODULES:  6ETTYPE 
AUTHOR:  CAPT  JERRY  OWENS 

history: 


HOMY:  PROCEDURE  (RECIN.BUFFER, RECOUT.BUFFER, HONEY. POS ) ; 

DCL  RECIN  BUFFER  CHARI160); 

DCL  RECOUT.BUFFER  CHAR (80) I 
DCL  HONEY  TEHP  FIXED  BUMS)', 

DCL  HONEY  LAST  FIXED  BINIISH 
DCL  HONEY  FRST  FIXED  BIN115J » 

DCL  H0NEY.LN6TH  FIXED  BIN(IS); 

DCL  HONOHNER  LNBTH  FIXED  BIN(1S){ 

DCL  HONONNER.START  FIXED  BIN(15)f 
DCL  HONONNER.END  FIXED  B!N(15>; 

DCL  HONEY.POS  FIXED  BIN  US)  I 
DCL  HONEY.TYPE  CHAR (4) j 
DCL  HONEY.ONNER  CHAR (4); 

DCL  HONEY.NAHE  CHAR (32) I 
DCL  HONEY.DESC  CHAR ( 16) ! 

HONEY.ONNER  =  ’0 

HONEY.NAHE  *  SUBSTR (RECOUT.BUFFER,  10,32); 

/# 

•  INSURE  NAME  DOES  NOT  END  NITH  A  HYPHEN  .  * 

HIHHHtHHHHHHHHIMHimtWiimHHHHHHI 

*/ 

SUBSTR (HONEY  NAHE,32,1)  * 

TRANSLATE (SUBSTR (HONEY.NAHE, 32, 1 ) ,  ’ 

HOMY  TYPE  *  ’PIC  ’5 
HONEY  TEHP  *  HONEY.POS  ♦  7; 

HONEY  FRST  «  FINDPAT1RECIN  BUFFER, HONEY  TEHP, ’9’); 


t  IN  THE  FORM  OF  *99999.99  ??  '  » 

! 

HONEY  LAST  *  FINDPAT(8£CIN.BUFFER,H0NEY.FRST, ’9  ’)! 
IF  HONEY.LAST  >  0  THEN 

HONEY  LN6TH  *  (HONEY  LAST  -  HONEY.FRST)  ♦  li 
ELSE  DO; 


*  IN  THE  FORM  *99999.999)  ????  ♦ 


f 

HONEY  LAST  «  FINDPAT (RECIN  BUFFER, HONEY.FRST, ’9)’) i 
IF  HONEY  LAST  >  0  THEN 

HONEY  LN6TH  *  (HONEY.LAST  -  HONEY.FRST)  ♦  1; 
ELSE  DO; 


•  IN  THE  FORK  *9(2). 9(2))  OR  (99.9(2))  ???  * 


f 

HONEY  LAST  -  FINDPAT (RECIN.BUFFER, HONEY.FRST, 

*))’); 

IF  HONEY  LAST  >  0  THEN 
HONEY.LN6TH  *  (HONEY.LAST  -  HONEY.FRST) 

♦  15 

ELSE  DO! 


*  HUST  BE  *9(5). 9(2)  OR  *999.9(5) 


t 


HONEY  LAST  -  FINDPAT (RECIN  BUFFER, 
HONEY  FRST,’)  ’); 
HONEY  LN6TH  *  (HONEY  LAST  -  HONEY  FRST) 
♦  15 
END; 


END; 


END! 


HONEY.TEHP  *  FINDPAT (RECIN.BUFFER, HONEY.LAST, ’ IN  ’); 


f  DOES  S2K  RECORD  ZERO  ONN  THIS  I TEH  ????  • 


IF  HONEY  TEHP  )  0  THEN  DO; 

HONONNER  START  *  HONEY  TEHP  *  3; 

HONONNER.END  =  FIMDPAtTrECIN.BUFFER, HONEY.TEHP, 

’  NITH  ’); 

IF  HONONNER.END  -  0  THEN 

HONONNER.END  *  FINDPAT (RECIN.BUFFER, HONEY.TEHP, ’ )  ’); 


E  -  34 


HONONNER.LNGTH  *  HONONNER.END  -  HQNONNER.START; 
HONEY.CWMER  «  SUBSTR  (RECIN.BUFFER,  NONONNER.START, 
H0NQNNER.LN6TH); 


END  HONEY; 


MONEY  DESC  *  SUBSTR (RECIN.BUFFER, HDNEY_FRST,HQNEY_LH6TH) 
HONEY  DESC  *  TRANSLATE  (HONEY.DESC.’Vy.')} 

SUBSTR (RECOUT.BUFFER, 10,32)  -  HONEY.NAHE; 

SUBSTR (RECOUT.BUFFER, 42,1)  *  ’  *} 

SUBSTR (RECOUT.BUFFER, 43,4)  =  HONEY.ONNER; 

SUBSTR (RECOUT.BUFFER, 47,1)  =  ’  *j 
SUBSTR (RECOUT.BUFFER, 48, 4)  =  HONEY  TYPE; 

SUBSTR ( RECOUT.BUFFER ,52,1)  *  ’  *} 

SUBSTR (RECOUT.BUFFER, S3, 16)  -  HONEY  DESC; 

SUBSTR (RECOUT.BUFFER, 69,1)  *  ’ 

SUBSTR (RECOUT.BUFFER, 70, 6)  =  'COHP-3’5 
SUBSTR (RECOUT.BUFFER, 76, 5)  =  ’ 


/ 

h 


SCHHBL  2.7  */ 


DATE:  3  SEP  S3  * 

VERSION:  1.3  * 

NAflE:  SCHHBL  » 

NODULE  NUMBER:  2.7  * 

FUNCTION:  CALL  THE  APPROPIOTE  NODULES  TO  BUILD  THE  IDHSHDL  * 

FILE.  » 

INPUTS:  REC.CNT,  ELEN.CNT  » 

OUTPUTS!  ♦ 

6L0BAL  VARIABLES  USED:  * 

GLOBAL  VARIABLES  CHAN6ED:  • 

GLOBAL  TABLES  USED:  * 

FILES  READ:  • 

FILES  WRITTEN:  * 

NODULES  CALLED:  SET INFO,  BILDL06  • 

CALLING  NODULES:  RDSCHN  » 

AUTHOR:  CAPT.  JERRY  ONENS  * 

HISTORY:  * 

immtmmmtttfimtmmtttHHmmMtftmtmttHtm/ 


SCHHBL:  PROCEDURE  (REC  CNT, ELEN  CNTlj 
DCL  REC  CNT  FIXED  b1n(1S); 

DCL  ELEN  CNT  FIXED  BIN(15)j 

DCL  CNTR  FIXED  BINdSU 

DCL  J  REC  DESC  IREC.CNT)  CONTROLLED, 

2  IONS  NANE  CHAR (16)  , 

2  I DNS. NUN  FIXED  BIN(lS)  , 

2  S2K  WJN  CHAR (4), 

2  OWNER  S2X  CHAR (4), 

2  FRST  PTR  FIXED  BIN<15); 

DCL  1  ELEN.DESC  (ELEN.CNT)  CONTROLLED, 

2  S2KREF.NUH  CHAR ( 4) , 

2  ELEH.NAHE  CHAR(32), 

2  ELEN  PIC  CHAR (28), 

2  ELEN  RENDER  CHAR (4); 

ALLOCATE  REC.DESCl 
ALLOCATE  ELEN  DESC; 

CNTR  «  REC  CNT  ♦  ELEN.CNT; 

CALL  GET INFO  (REC  DESC, ELEN.DESC, CNTR); 

CALL  BILDL06  (REC.DESC, ELEN.DESC, REC.CNT, ELEN.CNT); 

END  SCHHBL I 


/»  GET INFO  2.7.1  */ 

*  DATE:  3  SEP  83  « 

f  version:  i.i  t 

•  NAME:  SETINFO  * 

#  NODULE  NUMBER:  2.7.1  » 

♦  FUNCTION:  READ  THE  S2KTEHP  file  into  hehory  fpr  future  * 

*  PROCESS’ NS.  t 

*  inputs:  rec.desc,  ELEH.OESC,  cntr  * 

*  OUTPUTS:  REC.DESC,  ELEH.OESC  « 

t  GLOBAL  VARIABLES  USED:  t 

t  GLOBAL  VARIABLES  CHANGED:  • 

•  6L0BAL  TABLES  USED:  » 

•  FILES  READ:  S2KTEHP  • 

t  FILES  WRITTEN:  * 

t  NODULES  CALLED:  • 

•  CALLING  NODULES:  SCHNBL  * 

•  AUTHOR:  CAPT.  JERRY  ONENS  * 

«  HISTORY:  * 

ttimttfftttttmtttttmtttfttmtttmtttfttttmmttmttftttt/ 


»/ 

SETINFO:  PROCEDURE (REC  DESC, ELEH.OESC, CNTR); 

DCL  1  REC.DESC  it], 

2  I DNS  NANE  CHAR (16)  , 

2  1DNS.NUN  FIXED  BIN(IS)  , 

2  S2K  NUN  CHAR  14), 

2  OWNER  S2K  CHARM), 

2  FRST.PTR  FIXED  BIN(IS); 

DCL  1  ELEH.OESC  (»), 

2  S2KREF  NUN  CHAR (4), 

2  ELEH  NAHE  CHAR (32), 

2  ELEH.PIC  CHAR (28), 

2  ELEH.HEHBER  CHAR (4); 

DCL  ECNT  FIXED  BI~N(1S)  INIT(l); 

DCL  RCNT  FIXED  BIN(13)  INIT(l); 

DCL  CNTR  FIXED  BINI15); 

DCL  I,J  FIXED  BIN(IS); 

DCL  STRT.NUH  FIXED  BIN(IS); 

DCL  INC.NUfl  FIXED  BIN (15)5 

DCL  TEHP.REC  CHAR (GO); 

/« 

t  THIS  INFO  CANE  FROH  CLIST  .  * 

*/ 

GET  LIST  (STRT.NUH, INC  NUN); 

CLOSE  F!LE(S2KTEHP); 

OPEN  FILE (S2KTEHH)  INPUT; 

DO  I  >  1  TO  CNTR; 

GET  FILE(S2KTEHPI  EDIT  (TEHP.REC) (COL(l),A(BO))! 


MHHtmmttttfttHttmttmifmmfftiHHfttmH* 

*  IS  THIS  INFORMATION  FOR  A  RECORD  OR  AN  I TEH  ????  '  t 

HHIIHtlHHHHUHHHIlHHHHtHHHIHHHHHIH 

#/ 

IF  SU8STR(TEHP.REC,4B,4)  -  ’REC  ’  THEN  DO; 

REC.DESC (RCNT) . IDHS  NAME  •  SUBSTR (TEHP  REC, 10, 14); 
REC.DESC (RCNT ) . S2K.NUH  =  SUBSTR ( TE«P_REC, 1,4); 

REC_DESC (RCNT) . OWNER  S2K  =  SUBSTR(TEHP_REC,43,4)5 
REC  DESC( RCNT). IDHS  NUN  =  STRT.NUH; 

REC.DESC (RCNT) . FRST.PTR  =  0; 

RCNT  =  RCNT  ♦  1; 

STRT.NUH  *  STRT.NUH  ♦  INC.NUHJ 
END; 

ELSE  DO; 

ELEH.DESC(ECNT) .S2KREF.NUH  *  SUBSTR(TEHP.REC,1,4); 
ELEH* DESC ( ECNT ) . ELEH.NAHE  *  SUBSTR (TEHP.REC, 10,32); 
ELEH  DESC (ECNT). ELEH  MEMBER  =  SUBSTR ( TEMP.REC, 43,4); 
ELEH.DESC (ECNT ) . ELEH.P I C  =  SUBSTR (TEHP.REC, 48, 28); 
DO  J  -  1  TO  RCNT; 

IF  ( REC.DESC (J).S2K.NUH  * 

ELEH  DESC(ECNT) .ELEH.HEHBER)  THEN 

do; 

IF  REC  DESC ( J ) .  FRST.PTR  =  0  THEN 
REC.DESC <J). FRST.PTR  *  ECNT; 

END; 

END; 

ECNT  =  ECNT  ♦  i; 

END; 

END; 

END  6ETINF0; 


V 


/»  BILDL06  2.7.2  • / 

/»##  »t»m#»m#»*»#M»*i 

*  DATE:  3  SEP  83 
<  VERSION:  1.3 
t  NAME:  BILDLOB 

*  NODULE  NUMBER:  2.7.2 

*  function:  nrite  record  description  section  to  idhshdl  file.  * 

*  inputs:  rec.desc,  elen.desc,  rec.cnt,  elen.cnt  • 

*  outputs:  ’  * 

*  GLOBAL  VARIABLES  USED:  * 

*  6L0BAL  VARIABLES  CHANGED:  • 

*  6L0BAL  TABLES  USED:  • 

*  FILES  READ:  * 

t  FILES  BRITTEN:  IDHSHDL  • 

t  NODULES  CALLED:  6ETH0DE,  RECDUH  • 

»  CALLING  NODULES:  • 

*  AUTHOR:  CAPT.  JERRY  ONENS  ♦ 

*  HISTORY:  • 

/« 


#/ 

BILDL06:  PROCEDURE  I REC.DESC , ELEN.DESC , REC.CNT, ELEH.CNT) 5 
DCL  1  REC  DESC  <*), 

2  I DNS  NANE  CHAR (16)  , 

2  I DNS  NUN  FIXED  BIN(IS)  , 

2  S2K_mCMIH4>, 

2  OWNER  S2K  CHAR (4), 

2  FRST.PTR  FIXED  BIN(lS); 

DCL  1  ELEN.DESC  1*), 

2  S2KREF.NUN  CHARM), 

2  ELEH.NAHE  CHAR (32), 

2  ELEN.PIC  CHAR (28), 

2  ELEN  HENBER  CHARM); 

DCL  REC.CNT  FIXED  BIN(IS); 

DCL  ELEN.CNT  FIXED  SINM5); 

DCL  I,J  FIXED  BIN(IS); 

DCL  DUHNAHE  CHAR<22); 

DCL  SET.CNT  FIXED  BINU5)  INIT(l); 

PUT  FILE  (IDHSHDL)  EDIT  (REC.CNT, ELEN.CNT) 

(C0L(1),FM),C0L(5),FM>); 

DO  I  -  1  TO  REC.CNT; 

PUT  FILE  ( IDHSHDL )  EDIT 

( ’R’ , REC  DESCI 1 ) . IDNS.NANE, REC.DESC (I). IDNS.NUN, 
REC.DESC (I). S2K.NUH , REC.DESC (I ) . 0BNER.S2K, 

REC~DESC ( I). FRST.PTR) 

(COL7l ) , A,COL (3) , A, C0L(20) ,F(4) ,C0L (25) , A,COL (30) , A, 
COL (35) , F (4) ) ; 

CALL  GETHODE (REC.DESC, ELEN.DESC, SET.CNT, I ) I 


-4 


t  DOES  THIS  RECORD  HAVE  ANY  ITEHS  IN  IT  ???  • 

HHHHHHHHHIHHIlHHHIHHHIlHitllHHHHHt 

/ 

IF  REC  DESCdl.FRST  PTR  =  0  THEN  00; 

CALL  RECDUH (REC  DESC (I). I DHS.NAHE, DUHNAHE ) I 
PUT  FILE  (IDHSHO’l)  EDIT 

( ’ I ’ , DUHNAHE , 'PIC  1(4)’, REC.DESC (I) .S2K.NUH) 

(COL (1), A, COL (8), A, COL (41), A, COL (70), A); 

END; 

ELSE  DO; 

» 

tflttitliftfMtttilttfttttffttfffflfHfttttttffttifffttff 

t  6ET  ALL  OF  THE  ITEHS  FOR  THE  CURRENT  RECORD  ....  * 

tmtftttmHtttftmtmtfftmtfmmmHmmmti 

/ 

DO  J  -  1  TO  ELEH  CNT; 

IF  REC  DESC < I ) . S2K_NUH  -  ELEH  DESC (J). ELEH  MEMBER  THEN 
PUT  FILE  (IDHSHDL)  EDIT 

( ’  l  ’ ,  ELEH  J)ESC  ( J ) .  S2KREF  NUH, 

ELEH  DESC (J). ELEH.NAHE , ELEH.DESC ( J ) . ELEH.PI C 
ELEH  DESC  (J).  ELEH.HEHBER)  (COL  ( 1 ) ,  A,  COL  (3)*,  A, 
COL  (8),  A,  COL  (41),  A,  COL  (70),  A); 

END; 

END; 

END; 

END  SILDLOS; 


It  GETHODE  2. 7. 2.1  •/ 

•  DATE:  4  SEP  83 

•  VERSION:  1.1 

•  NAME:  6ETHQDE 

t  MODULE  NUMBER:  2. 7.2.1 

•  FUNCTION:  DECIDE  THE  LOCATION  NODE  FOR  A  RECORD  AND  WRITES  IT  ■ 

t  TO  THE  1DHSHDL  FILE. 

t  INPUTS:  REC.DESC,  ELEH.DESC,  SET.CNT,  REC.NUH 

•  OUTPUTS:  SET.CNT 

«  GLOBAL  VARIABLES  USED: 
t  GLOBAL  VARIABLES  CHAN6ED: 

•  GLOBAL  TABLES  USED: 

•  FILES  READ: 

•  FILES  WRITTEN:  IDHSHDL 
t  NODULES  called:  CALCREC 
t  CALLING  NODULES:  BILDL06 
t  AUTHOR:  CAPT.  JERRY  OWENS 

•  HISTORY: 


tl 

6ETNODE:  PROCEDURE (REC.DESC, ELEH.DESC, SET.CNT, REC.NUH); 

DCL  1  REC  DESC  (*), 

2  IDHS  NANE  CHAR (16)  , 

2  IDHS  NUN  FIXED  BIN(IS)  , 

2  S2K  NUN  CHARM! , 

2  OWNER  S2K  CHAR(4), 

2  FRST  PTR  FIXED  BIN(15); 

DCL  1  ELEN  DESC  (t>, 

2  S2KREF.NUH  CHAR (4), 

2  ELEN  NANE  CHAR (32), 

2  ELEH.PIC  CHAR (28), 

2  ELEN  NENBER  CHAR (4); 

DCL  SET  CNT  FIXED  BIN(IS); 

DCL  REC.NUH  FIXED  BIN(IS); 

It 

ttffMHUUffHHUtU§t***UHt*titHHftiti*titHi**ti 

t  THIS  IS  RECORD  S2K  RECORD  ZERO,  HAKE  IT  CALC  ..  * 


tl 

IF  REC.DESC(REC.NUH) .OWNER .S2K  =  ’  ’  THEN 

PUT  FILE  (IDHSHDL)  EDIT 

( ’  C’ , ELEH.DESC (REC.DESC ( REC.NUH ) . FRST.PTR) . ELEH.NAHE ) 
(COL ( 1 ) , A, COL (S) , a! ; 

ELSE  DO; 

It 

i  HAKE  IT  VIA  WITH  A  UNlfiUE  SET  NANE  .....  * 


tl 


IF  SET  CNT  <  10  THEN 


PUT  FILE  (IDHSHDL)  EDIT  <’V', ’RELATION-’, SET.CNT) 
<C0L<1),A,C0L(5),A,C0L(14),FI1)>; 

ELSE  IF  SET  CNT  <  100  THEN 
PUT  FILE  (IDMSHDL)  EDIT  (’V, ’RELATION-’, SET.CNT) 

(COL ( 1 } , A, COL (5) , A, COL ( 14 ) , F (2) ) $ 

ELSE  IF  SET.CNT  <  1000  THEN 
PUT  FILE  (IDHSHDL)  EDIT  (’V, ’RELATION-’, SET.CNT) 
(COL ( 1 ) , A, COL (S) , A, COL ( 14) , F (3) ) S 
SET  CNT  =  SET  CNT  ♦  1; 

CALL  CALCREC (REC.DESC, REC.NUN) ; 

END', 

END  6ETN0DE! 


/*  CALCREC  2.7.2. 1.1  •/ 

/HIHHHHHHHHHHtllKHIIIIHfHIHilHHHHHiHHHIlHH 

*  DATE:  4  SEP  83  '  * 

*  VERSION:  1.0  * 

*  NAME:  CALCREC  * 

*  NODULE  NUNBER:  2. 7.2. 1.1  • 

t  FUNCTION:  FINOS  THE  ONNER  AND  HEHBER  OF  A  BIVEN  SET  RELATION.  * 

t  THEN  NRITES  THEN  TO  THE  IDHSHDL  FILE.  * 

»  INPUTS:  REC.DESC,  REC.NUH  • 

«  OUTPUTS:  * 

*  6L0BAL  VARIABLES  USED:  • 

*  6L0BAL  VARIABLES  CHAN6ED:  * 

*  6L0BAL  TABLES  USED:  • 

*  FILES  READ:  * 

*  FILES  WRITTEN:  IDHSHDL  t 

t  NODULES  CALLED!  • 

t  CALLIN6  NODULES:  6ETH0DE  • 

«  AUTHOR:  CAPT.  JERRY  ONENS  * 

*  HISTORY:  * 

HIHHHHtHUHHHHiHHHIHHIHtllHfHHHHHHHHHHH/ 

/# 


CALCREC:  PROCEDURE  (REC.DESC, REC.NUH); 
DCL  1  REC.DESC  (*), 

2  IONS  NAME  CHAR (16)  , 

2  IONS  NUN  FIXED  BIN (IS)  , 

2  S2K  NUN  CHAR (4), 

2  ONNER  S2K  CHAR (4), 

2  FRST.PTR  FIXED  BIN(15>5 
DCL  REC.NUH  FIXED  BIN(IS); 

DCL  I  FIXED  BINdSlINIT  (11; 

DCL  REC.FLA6  FIXED  BIN11S)  INIT  (0); 
DCL  ONNER.NANE  CHARI  169; 

DCL  HEHBER.NANE  CHAR (16); 

I* 


t  THE  CURRENT  RECORD  IS  THE  HEHBER  OF  THE  CURRENT  SET  ♦ 

»/ 

HEHBER.NANE  *  REC.DESC (REC.NUH ).1DHS.NAHE| 

/* 


•  FIND  THE  ONNER  OF  THE  CURRENT  SET  OR  HEHBER  ...  • 


*/ 

DO  WHILE  (REC  FLA6  «  0); 

IF  REC  DESCIREC  NUH1.0NNER.S2K  >  REC.DESC ( I 1.S2K.NUH  THEN 
D0| 

ONNER.NANE  >  REC.DESC I I ) . I DHS.NAHE | 

REC  FLA6  >  11 
END; 

ELSE  I  «  I  ♦  l; 


/*  RECDUM  2. 7. 2. 2  •/ 

«  DATE:  4  SEP  83  » 

•  VERSION:  1.0  • 

•  NAME:  RECDUN  * 

•  NODULE  NUMBER:  2. 7.2.2  • 

«  FUNCTION:  BUILD  AN  ITEM  NAME  FOR  A  DUMMY  RECORD.  » 

«  INPUTS:  RECNANE,  DUNNAHE  * 

«  OUTPUTS:  DUHNANE  » 

t  6L0BAL  VARIABLES  USED:  • 

*  6L0BAL  VARIABLES  CHAN6ED:  » 

•  6L0BAL  TABLES  USED:  • 

«  FILES  READ:  * 

*  FILES  WRITTEN:  « 

•  NODULES  CALLED!  * 

*  CALLIN6  NODULES:  BILDLOS  • 

♦  AUTHOR:  CAPT.  JERRY  ONENS  * 

*  HISTORY:  « 

HHHHHHHHHKHHHIHIHHIIIIHIHHIHKHHHHIHHHH/ 

/« 

«/ 

RECDUN:  PROCEDURE (RECNANE, DUMNAME) I 
DCL  RECNANE  CHAR (16); 

DCL  DUN  POS  FIXED  BIN(15)i 

DCL  DUN  REC  CHAR (160)  INIT  ((160)’  ’){ 

DCL  DUNNAHE  CHAR (22); 

S UBSTfUDUH.REC,t,li)  «  KECHAHE} 

DUN  POS  *  FINDPAT (DUN_REC, 1 , ’  ’); 

SUBSTR ( DUH_REC , DUN.POS , 6 )  «  ’-DUNNY’J 
DUHNANE  «  SUBSTR (DUH.REC, 1,22); 

END  RECDUN; 

END  ROSCHH; 


/ 

/ 


IDHSOUT  3.0  */ 


SATE:  10  SEP  83 
VERSION:  1.0 
NAME:  IDflSOUT 
NODULE  NUMBER:  3.0 

function:  main  driver  nhich  calls  the  appropiate  nodules 

TO  BUILD  THE  1DNS  SCHEMA,  DHCL,  AND  SUBSCHENA. 

INPUTS: 

OUTPUTS! 

6L0BAL  VARIABLES  USED: 

6L0BAL  VARIABLES  CHANSED: 

6L0BAL  TABLES  USED: 

FILES  READ:  IDHSHDL 
FILES  written: 

NODULES  CALLED:  SCHHDES,  FILEDES,  AREADES,  BILDREC,  BILDSET, 
DHCL,  SUBSCHN 

CALL I N6  NODULES: 

AUTHOR:  CAPT.  JERRY  OMENS 

history: 


idhsout:  procedure  OPTIONS(HAIN); 

DCL  USRDEFS  FILE  STREAN  INPUT; 

DCL  SCHEMA  FILE  STREAN  OUTPUT; 

DCL  IDHSHDL  FILE  STREAM  INPUT; 

DCL  SUBS  FILE  STREAN  OUTPUT; 

DCL  DHCLFLE  FILE  STREAN  OUTPUT; 

DCL  AREA.NAHE  CHAR (16)  1NIT  ((16)’ 

DCL  FILE  NAHE  CHAR (8)  INIT  ((8)’  Mi 
DCL  REC.CNT  FIXED  BIN(IS); 

DCL  ELEN.CNT  FIXED  BIN(IS); 

OCL  SETNUH  FIXED  BINI15)  INIT  (1); 

DCL  RECNUN  FIXED  BIN(IS)  INIT  (1); 

DCL  SCHENA.NANE  CHAR (81; 

DCL  DHCL.NAHE  CHAR(8); 

DCL  SCHEHA.VERS10N  CHAR (3); 

DCL  AUTHOR  CHAR(30); 

DCL  TODATE  CHAR (9); 

DCL  1  REC.DESC  (REC.CNT)  CONTROLLED, 

2  NAHE.REC  CHAR (16), 

2  NEXT  PTR  FIXED  BIN(IS), 

2  PRIOR.PTR  FIXED  BIN(IS); 

DCL  1  SET.DESC  (REC  CNT  -  1)  CONTROLLED, 
2  SET.NAHE  CHARI16), 

2  SET.ONNER  CHAR (16), 

2  SET.NENBER  CHARI  16); 

ON  ENDFILE (IDHSHDL)  SOTO  SETBILD; 

SET  FILE (IDHSHDL)  LISTIREC  CNT, ELEN.CNT); 
ALLOCATE  REC.DESC; 

ALLOCATE  SET.DESC; 


CALL  SCHHDES (SCHEHA.NAHE, SCHEMA. VERS I ON, AUTHOR, TOOATE) } 

CALL  FILEDEStFILE  NAME); 

CALL  AREADES (AREA  NAME, FILENAME)) 

CALL  BILDR£C(AREA  NAME, REC.DESC, SET_DESC,RECMU«, SETNUrt) i 
SETBILD:  CALL  BILDSET (REC.DESC, SET.DESC, SETNUM) ! 

CLOSE  FILE  (SCHEMA); 

CALL  DMCL (SCHEHA  NAME , SCHEMA. VERS I ON , AUTHOR , T ODATE , 

AREA  NAME, DMCL.NAHE); 

CALL  SUBSCHM ( SCHEHA  NAME, REC.DESC, SET.DESC, RECNUM, SETNUM); 


It  SCHHDES  3.1  »/ 

/HHHIIIHHHHHftHIHfHHHHHHIiHIHtlflliHIHliHI 

•  DATE:  10  SEP  83 
t  VERSION:  1.1 

•  NAME:  SCHHDES 

•  NODULE  NUMBER:  3.1 

»  FUNCTION:  BUILD  THE  SCHEMA  DESCRIPTION  SECTION  OF  THE  IDMS 
t  SCHEMA. 

»  INPUTS:  SCHEMA  NAME,  SCHEMA  VERSION,  AUTHOR,  TODATE 

•  OUTPUTS:  SCHEMA'  NAME,  SCHEMA*  VERSION,  AUTHOR,  TODATE 

•  6L0BAL  VARIABLES  USED: 

•  6L0BAL  VARIABLES  CHANCED: 

•  6L0BAL  TABLES  USED: 

•  FILES  READ:  USRDEFS 

•  FILES  NRITTEN:  SCHEMA 

•  NODULES  CALLED:  SETOATE 
«  CALL I N6  NODULES:  IDNSOUT 

•  AUTHOR:  CAPT.  JERRY  OMENS 

•  HISTORY.* 


»/ 

SCHHDES:  PROCEDURE (SCHEMA_NAH£,SCH£MA.VERSION, AUTHOR, TODATE); 

DCL  SCHENA.NAME  CHAR (8) i 
DCL  SCHEMA  VERSION  CHAR (3) i 
DCL  AUTHOR  CHAR (30); 

DCL  AUTHOR  PHONE  CHAR (12); 

DCL  TODATE  CHAR (9); 

6ET  FILE (USRDEFS)  EDIT  (SCHENA.NAME)  (C0L(1),A(B)>; 

6ET  FILE(USRDEFS)  EDIT  (SCHEMA. VERSION)  <C0L(1),A(30>); 

6ET  FILE (USRDEFS)  EDIT  (AUTHOR)  (C0L<i),A(30>>; 

6ET  FILE(USRDEFS)  EDIT  (AUTHOR.PHONE)  (C0L(1),A(12))} 

PUT  FILE  (SCHEMA)  EDIT  <’«’) (C0L(7>,A)} 

PUT  FILE  (SCHEMA)  EDIT 

( ’ »  *************  ttmmmmm  mmmtmmtm’ ) 

(COL (7) , A) ; 

PUT  FILE  (SCHEMA)  EDIT  (’•♦»*♦**’)  (C0L(62),A)J 
PUT  FILE (SCHEMA)  EDIT 

<’*  i  SCHEMA  DESCRIPTION  STATEMENTS') 

(COL (7), A); 

PUT  FILE(SCHEHA)  EDIT  (’  «* ) (C0L(S5) , A) S 

PUT  FILE(SCHEHA)  EDIT 

(’*  ft********  IHIHHHtfM  «««*  HHHMHWHHWH- ) 

(COL (7) t  A)  { 

PUT  FILE  (SCHEMA)  EDIT  ('mm*’)  (C0L(62),A)J 

PUT  FILE(SCHEHA)  EDIT  (’«  ’) (C0L(7),A)J 

PUT  FILE (SCHEMA)  EDIT  (’SCHEMA  DESCRIPTION.’) (COL(B), A); 

PUT  FILE(SCHEHA)  SKIPI2)  EDIT  (’SCHEMA  NAME  IS  ’, SCHENA.NAME, 

’VERSION  ’, SCHEMA. VERSION,’.’) 
(C0L(8),A,C0L(23),A,C0L(40),A,C0LU8),A,C0L(51),A); 

PUT  FILE (SCHEMA)  SKIP(2)  EDIT  (’DATE.  ’ ) (COL (8) , A) ; 

CALL  BETDATE (TODATE); 


PUT  FILE (SCHEMA)  SKIP (2)  ES1T 

(’INSTALLATION.’, ’NAS  7000  -  2’) 

(COL (8) , A, COL (40) , A) ; 

PUT  FILE(SCHEHA)  EDIT 

(’WRIBHT-PATT ERSON  AFB,  OHIO.')  (C0L(40),A)i 
PUT  FILE (SCHEMA)  SKIP(2)  EDIT  (’REMARKS.’)  (C0L(8),A); 

PUT  FILE (SCHEMA)  EDIT 

(’THIS  IS  A  SAMPLE  IDMS  SCHEMA’)  (C0L(40),A); 

PUT  FI LEI SCHEMA)  EDIT 

(’DERIVED  FROM  THE  ’,SCHEHA_NAME)  (COL (40) , A, COL (57) , A) ; 

PUT  FILE (SCHEMA)  EDIT 

(’DATABASE ’SCHEMA  CURRENTLY’)  (C0L(40),A); 

PUT  FILE (SCHEMA)  EDIT 

('INSTALLED  UNDER  S2000.’)  (C0L(40),A); 

PUT  FILE(SCHEMA)  SKIPI2)  EDIT  (’AUTHOR. ’.AUTHOR)  (COL (8), A, COL (40), A); 
PUT  FILE (SCHEMA)  EDIT  (AUTHOR.PHONE,’.’)  (COL (40) , A, COL (52) , A) ; 

END  SCHHDES; 


/»  6ETDATE  3.1.1  #/ 


»  DATE:  20  SEP  83 

tf  itttf  ttttMtf  i 

ttmtt 

i  VERSION:  1.0 

i  name:  6ETDATE 

•  NODULE  NUMBER:  3.1.1 

*  FUNCTION:  SET  THE  CURRENT  DATE. 

*  INPUTS:  TODATE 

♦  OUTPUTS:  TODATE 

t  6L0BAL  VARIABLES  USED: 

•  GLOBAL  VARIABLES  CHANGED: 

•  6L0BAL  TABLES  USED: 

•  FILES  READ: 

«  FILES  NRITTEN:  SCHENA 

«  NODULES  CALLED: 

*  CALLING  NODULES:  SCHNDES 

t  AUTHOR:  CAPT.  JERRY  ONENS 

»  HISTORY: 

ttmittmttmt 

6ETDATE:  PROCEDURE (TODATE); 

DCL  TODAY  CHAR (A); 

DCL  TODATE  CHARI9); 

TODAY  =  DATE! 

TODATE  *  SUBSTR ( TODAY, 3, 2)  1!  ’/’  ::  SUBSTR(T0DAY,5,2)  ::  ’/'  :: 

SUBSTR (TODAY,  1,2)  JJ  V; 

PUT  FILE(SCHEHA)  EDIT  (TODATE) (COL(4Q>, A)| 

END  6ETDATE; 


/*  FILEDES  3.2  */ 

*  SATE!  10  SEP  83  ~  * 

*  VERSION:  1.1  * 

*  NAME:  FILEDES  * 

*  NODULE  NUMBER:  3.2  * 

t  FUNCTION:  BUILD  THE  FILE  DESCRIPTION  SECTION  OF  THE  IONS  * 

t  SCHEMA.  * 

»  INPUTS:  FILE.NANE  * 

«  OUTPUTS:  FILE.NANE  « 

*  6L0BAL  VARIABLES  USES:  * 

*  6L0BAL  VARIABLES  CHAN6ED:  * 

t  6L0BAL  TABLES  USED:  * 

t  FILES  READ:  USROEFS  « 

*  FILES  NRITTEN:  SCHEMA  * 

*  NODULES  CALLED:  IDHSOUT  # 

t  CALLING  NODULES:  * 

t  AUTHOR:  CAPT.  JERRY  ONENS  * 

»  HISTORY:  * 

It 

tl 

FILEDES:  PROCEDURE (FILE.NANE) i 
DCL  FILE.NANE  CHARI8U 
DCL  FILE.DEVICE  CHAR (5) i 

GET  FILE(USRDEFS)  EDIT  (FILE  NAME) (COL ( 1> , A (8) ) I 
GET  FILE(USRDEFS)  EDIT  (FILE.DEVICE) (CQL(l),A(8)>i 
PUT  FILE (SCHEMA)  EDIT  (’*’) (C0L(7),A)J 
PUT  FILE (SCHEMA!  EDIT 

( ’  t  ) 

(COL (7) , A) ; 

PUT  FILE  (SCHEMA)  EDIT  I’ttttttt’)  (C0L(62I,A); 

PUT  FILE (SCHEMA)  EDIT 

(’»  t  FILE  DESCRIPTION  STATEMENTS’) 

(COL (7), A)« 

PUT  FILE (SCHEMA)  EDIT  (’  *’ ) (COL (55) , A) } 

PUT  FILE (SCHEMA)  EDIT 

(’f  tttttttttttttttttttttttittttutttttttttttttttttttt’) 

(COL (7), A); 

PUT  FILE (SCHEHA)  EDIT  (’••*«*»’) (C0L<62>,A); 

PUT  FILE (SCHEMA)  EDIT  (’§  ’) (COL (7), A) 5 

PUT  FILE (SCHEMA)  EDIT  (’FILE  DESCRIPTION.’) (COL (8), A); 

PUT  FILE (SCHEMA)  SKIPI2)  EDIT  (’FILE  NAME  IS  '(FILE.NANE, 

’ASSIGN  TO  ’(FILE.NANE) 

(COL (8), A, COL (21), A, COL (40), A, COL (50), A); 
PUT  FILE (SCHEMA)  EDIT  (’DEVICE  TYPE  IS  ’.FILE.DEVICE,'.’) 

(COL (40) , A, COL (55) , A, COL (60) , A) , 


END  FILEDES; 


/*  AREADES  3.3  */ 

/ftfitftmftfmiffftttfttttmmmtttmmttfmmmmttmt 

*  DATE:  10  SEP  83  '  * 

*  VERSION:  1.0  * 

»  NAME:  AREADES  t 

f  MODULE  NUMBER:  3.3  « 

*  FUNCTION:  BUILD  THE  AREA  DESCRIPTION  SECTION  OF  THE  IDMS  # 

*  SCHEMA.  * 

»  INPUTS:  AREA.NAME,  FILE.NAME  t 

t  OUTPUTS:  AREA.NAME  * 

t  6L0BAL  VARIABLES  USED:  * 

t  6L0BAL  VARIABLES  CHANCED:  * 

t  6LQBAL  TABLES  USED:  » 

t  FILES  READ:  USRDEFS  i 

*  FILES  WRITTEN:  SCHEMA  * 

f  MODULES  CALLED:  t 

t  CALLING  MODULES!  IDMSQUT  * 

*  AUTHOR:  CAPT.  JERRY  OWENS  * 

*  HISTORY:  * 

I* 

*/ 

AREADES:  PROCEDURE (AREA  NAME, FILE  NAME); 

DCL  AREA.NAME  CHAR (16); 

DCL  FILE.NAME  CHAR (6); 

DCL  RANGE  START  FIXED  BIN (31); 

DCL  RANGE  END  FIXED  BIN (31); 

DCL  LIMIT  FIXED  BIN(15)j 

GET  FILE (USRDEFS)  EDIT  (AREA.NAME) (CQL(1),A(16)>; 

GET  FILE (USRDEFS)  EDIT  (RANGE  START) (COL(l),F(8))5 
GET  FILE (USRDEFS)  EDIT  (RANGE  END) (COL(l) ,F (8) ) ; 

PUT  FILE(SCHEMA)  EDIT  (’ *’ ) (COL (7) , A) ; 

PUT  FILE (SCHEMA)  EDIT 

(’*  IHHHfMHtmHHHHHHHHItHHIHHHtHH’ ) 

(C0L(7),A); 

PUT  FILE  (SCHEMA)  EDIT  (’«*««’)  (C0L(62),A); 

PUT  FILE (SCHEMA)  EDIT 

(’«  *  AREA  DESCRIPTION  STATEMENTS’) 

(COL (7) , A) ; 

PUT  FILE (SCHEMA)  EDIT  (’  *’)(C0L(55),A>; 

PUT  FILE (SCHEMA)  EDIT 

(’t  ) 

(COL (7), A); 

PUT  FILE  (SCHEMA)  EDIT  (’♦#«»»»*)  (C0L(42),A); 

PUT  FILE (SCHEMA)  EDIT  (’*  ’) (C0L(7),AI ; 

PUT  FILE (SCHEMA)  EDIT  (’AREA  DESCRIPTION.’) (COL (8), A); 

PUT  FILE (SCHEMA)  SKIP(2)  EDIT  (’AREA  NAME  IS  ’, AREA.NAME) 

(C0L!8),A,C0L(21),A); 

PUT  FILE (SCHEMA)  EDIT  CRAN6E  IS  RANGE .START,’  THRU’ ,RAN6E_END 

(COL ( 19 ), A, COL < 28 ),F (8), COL (34), A, COL (42), F (8))} 
PUT  FILE (SCHEMA)  EDIT  ('WITHIN  FILE  ’, FILE.NAME) 

(COL (40) , A, COL (52) , A) ; 


I 

I 


It  BILDREC  3.4  #/ 

/fttttftfHttttttttf  ttttffHtttffHf  fitfttftHtttttttttttttfttHtftt 

t  DATE:  13  SEP  83  * 

t  VERSION:  1.2  « 

t  NAME:  BILDREC  t 

t  NODULE  NUNBER:  3.4  * 

*  FUNCTION:  BUILD  THE  RECORD  DESCRIPTION  SECTION  OF  THE  IDAS  * 

»  SCHEMA.  < 

»  INPUTS:  AREA.NAHE,  REC.DESC,  SET.DESC,  RECHUM,  SETNUH  • 

#  OUTPUTS:  REC.DESC,  SET.DESC,  RECHUM,  SETNUH  « 

t  6L0BAL  VARIABLES  USED:  • 

•  6L0BAL  VARIABLES  CHAN6ED:  * 

♦  6L0BAL  TABLES  USED:  t 

f  FILES  READ:  t 

*  FILES  WRITTEN:  SCHEMA  » 

*  NODULES  CALLED:  RECINFO,  1TH1NFO  f 

*  CALLING  NODULES:  IDNSOUT  ♦ 

•  AUTHOR:  CAPT.  JERRY  OMENS  * 

♦  HISTORY:  # 

/t 

*/ 

BILDREC:  PROCEDURE (AREA.NAHE, REC.DESC, SET.DESC, RECNUH, SETNUH) ; 

DCL  AREA.NAHE  CHAR (14); 

DCL  RECNUH  FIXED  BINI15); 

DCL  SETNUH  FIXED  BINU5); 

DCL  1  REC.DESC  W  , 

2  NAME  RtC  CHAR (14), 

2  NEXT  PiR  FIXED  BIN(IS), 

2  PRIOR.PTR  FIXED  B1N(15); 

OCL  1  SET.DESC  (»), 

2  SET.NAHE  CHAR (16), 

2  SET.ONNER  CHAR (16) , 

2  SET  HEHBER  CHAR < 16) ; 

PUT  FILE (SCHEHA)  EDIT  (’#’) (COL(7),A)i 
PUT  FILE (SCHEHA)  EDIT 

(COL (7) , A) ; 

PUT  FILE  (SCHEHA!  EDIT  Ctmttt’)  (C0L(62),A)J 
PUT  FILE (SCHEMA)  EDIT 

<’«  »  RECORD  DESCRIPTION  STATEMENTS’) 

(COL (7) , A) J 

PUT  FILE (SCHEHA)  EDIT  (’  *’ ) (COL (55) , A) ; 

PUT  FILE (SCHEMA)  EDIT 

( ’  t  *  i  tt»tt**m«*»*»«»  mtttf  t»«  »«»«««’ ) 

(COL (7) , A) ; 

PUT  FILE (SCHEHA)  EDIT  (’**«»«’) (C0L(62),A)i 
PUT  FILE (SCHEMA)  EDIT  <’#  ’ ) (COL(7) VA) ; 

PUT  FILE (SCHEHA)  EDIT  (’RECORD  DESCRIPTION.’) (COL IB), A); 

DO  HHILE  (’l’B)i 

CALL  RECINFO (AREA.NAHE, REC.DESC (RECNUH), SET.DESC (SETNUH), 

SETNUH .RECNUH); 


E  -  54 


/*  RECINFO  3.4.1  */ 

/•MttMfM<HtffttttMH<*fMMftlffiffftMtMtfi*ilttt>M*tHfflf*Ct 

t  DATE:  18  SEP  83  '  * 

#  VERSION:  1.2  • 

*  NAME:  RECINFO  * 

t  NODULE  NUMBER:  3.4.1  • 

*  FUNCTION:  SET  RECORD  NAME,  RECORD  ID,  AND  LOCATION  NODE  FOR  # 

«  A  6IVEN  RECORD.  • 

#  INPUTS:  AREA.NAME,  REC.DESC,  SET.DESC,  SETNUN,  RECNUM  * 

f  OUTPUTS:  REC.DESC,  SET.DESC,  SETNUN,  RECNUM  • 

•  6L0BAL  VARIABLES  USED:  * 

*  6L0BAL  VARIABLES  CHANGED:  « 

t  6L0BAL  TABLES  USED:  * 

•  FILES  READ:  IDNSNDL  * 

t  FILES  NR1TTEN:  SCHEMA  * 

•  NODULES  CALLED:  LOADREC,  LDADSET  * 

*  CALLING  NODULES:  B1LDREC  » 

t  AUTHOR:  CAPT.  JERRY  ONENS  * 

t  HISTORY:  * 

tftHtfttttmtttttmttmtftmtttmttmttmttfttmtfHiftm  / 


RECINFO:  PROCEDURE (AREA.NANE, REC.DESC, SET.DESC, SETNUN, RECNUM) ; 

DCL  RECNUN  FIXED  BIN(IS) ; 

DCL  SETNUN  FIXED  BIN! IS); 

DCL  1  REC  DESC, 

2  NAME  REC  CHAR (16), 

2  NEXT  PTR  FIXED  BIN(IS), 

2  PRIOR  PTR  FIXED  8INI15); 

DCL  1  SET.DESC, 

2  SET.NANE  CHAR (16), 

2  SET.ONNER  CHAR (16), 

2  SET  MEMBER  CHAR ( 16 ) ; 

DCL  REC.NAHE  CHAR (16)  INIT  ((16)’  ’)! 

DCL  REC.ID  CHAR (4)  INIT  ((4)’  ’>! 

DCL  SET.TYPE  CHAR (4)  INIT  (14)’  Mi 
DCL  SET  NAME  CHAR (16)  INIT  ((16)’  ’ ) i 
DCL  VIA.NANE  CHAR (16)  INIT  ((16)’  ’>{ 

DCL  CALC.NAME  CHAR (16)  INIT  ((16)’  ’); 

DCL  AREA.NANE  CHAR ( 16) i 

6ET  FILE (IDNSNDL)  EDIT  (REC  NAME, REC.ID)  (C0L(3),A(16),C0L(20),A(4)-; 
PUT  FILE (SCHEMA)  SKIP(2)  EDIT  (’RECORD  NAME  IS  ’, REC.NAHE,’.’) 

(COL(8),A,COL(23),A,COL(39),A); 

PUT  FILE (SCHEMA)  EDIT  (’RECORD  ID  IS  ’,REC  ID,’.’) 

(C0L(8),A,C0L(21),A,C0L(25),A)i 
CALL  LOADREC (REC.DESC, REC.NAHE, RECNUM) { 

GET  FILE  (IDNSNDL)'  EDIT  (SET.TYPE)  (COL(l),A(l) )  i 
IF  SET.TYPE  *  ’C’  THEN  DO! 

6ET  FILE (IDNSNDL)  EDIT  (CALC.NAME) <C0L(5) ,A(32) > i 
PUT  FILE (SCHEMA)  EDIT  (’LOCATION  MODE  IS  CALC  ’, ’USING  ’, CALC.NAME) 
(COL (8), A, COL (40), A, COL (46), A); 

PUT  FILE (SCHEMA)  EDIT  (’DUPLICATES  ARE  NOT  ALLOWED.’) 


(COL (40) , A) ; 


END; 

ELSE  do; 

6ET  FILE ( IDMSMDL )  EDIT  (VIA.NAME) (C0L(5>,A(I6)){ 

PUT  FI LEI  SCHEMA)  EDIT  (’LOCATION  MODE  IS  VIA  ' , VIA.NAHE, 'SET.  ’ ) 
(C0L(B),A,C0L(29),A,C0L(46),A); 

CALL  LOADSET (SET  J1ESC, VIA.NAME, SETNUM) ! 

END; 

PUT  FILE (SCHEMA)  EDIT  (’NITHIN  ’,AREA_NAME,’  AREA.’) 

(C0L(8),A,C0L(iS),A,C0L(Sl)lA); 

PUT  FILE(SCHEMA)  Sgll; 

END  RECINFOi 


/*  LOADREC  3. 4. 1.1  *1 

•  DATE:  14  SEP  83  '  * 

•  VERSION:  1.0  • 

t  NAME:  LOADREC  • 

•  NODULE  NUHBER:  3. 4. 1.1  • 

i  FUNCTION:  STORE  THE  NEEDED  RECORD  INFO  FOR  FUTURE  USE  i 

•  INPUTS:  REC.DESC,  REC.NANE,  RECNUH  • 

•  OUTPUTS:  REC.DESC,  RECNUH  ♦ 

«  GLOBAL  VARIABLES  USED:  * 

•  GLOBAL  VARIABLES  CHANGED:  » 

»  GLOBAL  TABLES  USED:  t 

•  FILES  READ:  * 

•  FILES  NRITTEN:  < 

t  NODULES  CALLED:  • 

•  CALLING  NODULES:  RECINFO  * 

«  AUTHOR:  CAPT.  JERRY  OMENS  * 

•  HISTORY:  * 

ttltfttf f fttttf ittf ttittf If ttittf If tf Ittttttf I tf f ttttttf ttltf ittf tf / 


LOADREC:  PROCEDURE (REC.DESC, REC.NANE, RECNUH 1 ; 
DCL  REC.NANE  CHAR (16) 5 
DCL  RECNUH  FIXED  BIN (IS); 

DCL  1  REC  DESC, 

2  NAHE.REC  CHAR (16), 

2  NEXT  PTR  FIXED  BIN(IS), 

2  PRIOR  PTR  FIXED  BIN(IS); 

REC  DESC.NAHE  REC  =  REc.NAHE; 

REC  DESC. NEXT  PTR  *  1; 

REC.DESC. PRIOR.PTR  *  2; 

RECNUH  =  RECNUH  ♦  1; 

END  LOADREC; 


/ 

h 


LOAOSET  3. 4.1. 2  •/ 


DATE:  15  SEP  83 

VERSION:  1.0 

NANE:  LOADSET 

NODDLE  NUMBER.  3.4. 1.2 

FUNCTION:  STORE  THE  SET  INFO  FOR  FUTURE  USE. 

inputs:  set.desc,  via.nane,  setnun 

OUTPUTS:  SET.DESC,  SETNUN 
6L0BAL  VARIABLES  USED: 

6L0BAL  VARIABLES  CHANSED: 

GLOBAL  TABLES  USED: 

FILES  READ:  IDNSNDL 
FILES  WRITTEN: 

NODULES  CALLED! 

CALLIN6  NODULES:  RECINFO 
AUTHOR:  CAPT.  JERRY  OMENS 

history: 


LOADSET:  PROCEDURE (SET.DESC, VIA.NANE, SETNUN); 

DCL  VIA.NANE  CHAfidA); 

DCL  SETNUN  FIXED  BIN(IS) « 

DCL  1  SET  DESC, 

2  SET.NANE  CHAR (16), 

2  SET  ONNER  CHAR (16), 

2  SET  NEHBER  CHAR (16); 

SET  DESC. SET  NANE  *  VIA  NANE; 

KT  FILE  (IDNSNDL)  EDIT  KET_DESC.SET_0NNERHCQL(25),A(l6))i 
BET  FIIE(IDHSNDL)  EDIT  (SET.DESC. SET.HENBER ) ( COL ( 45) , A ( 1 6 ) ) ; 
SETNUN  *  SETNUN  ♦  1) 

END  LOADSET; 


/ 

/I 


ITHINFO  3.4.2  */ 


DATE:  IS  SEP  83 
VERSION:  1.01 
NAHE:  ITHINFO 
MODULE  NUMBER:  3.4.2 

FUNCTION:  6ET  ALL  OF  THE  ITEMS  FOR  A  GIVEN  RECORD. 
INPUTS: 

OUTPUTS: 

6L08AL  VARIABLES  USED: 

6L0BAL  VARIABLES  CHAN6ED: 

6L0SAL  TABLES  USED: 

FILES  READ:  IDHSHDL 
FILES  NR1TTEN:  SCHEMA 
MODULES  CALLED: 

CALLIN6  NODULES:  BILDREC 
AUTHOR:  CAPT.  JERRY  OMENS 
HISTORY: 


«/ 

ITHINFO:  PROCEDURE; 

DCL  ITEM  NAHE  CHAR (32) i 
DCL  ITEH.PIC  CHAR (28); 

DCL  ITEM’ TYPE  CHAR(l)  INIT  <’  ’M 
6ET  FILE (IDHSHDL)  EDIT  (ITEH.TYPE) 

<COL!l),A(l)>; 

DO  NHILE  (ITEM  TYPE  *  ’I’); 

6ET  FILE (IDHSHDL)  EDIT  ( I TEH.NAHE, ITEH.PIC) 

(COL (8) , A (32) y COL (41 ) , A(28) ) ; 

PUT  FILE (SCHEMA)  EDIT  (*03’f ITEM  NAHE, ITEM  PIC,’.’) 

(COL (8) , A,  COL ( 12) , A, COL (44) , A, COL ( 72) , A) ; 
6ET  FILE (IDHSHDL)  EDIT  (ITEH.TYPE) 

(C0L(i),A(l)!i 

END; 

END  ITHINFO; 


/ 

H 


BILDSET  3.S  »/ 


BATE:  16  SEP  83 
VERSION:  1.3 
NAME:  BILDSET 
NODULE  NUMBER:  3.3 

FUNCTION:  BUILD  THE  SET  DESCRIPTION  PORTION  OF  THE  IDAS  SCHEMA 

INPUTS:  REC.DESC,  SET.DESC,  SETNUH 

OUTPUTS! 

BLOBAL  VARIABLES  USED: 

6L0BAL  VARIABLES  CHAN6ED: 

BLOBAL  TABLES  USED: 

FILES  READ: 

FILES  HRITTEN:  SCHEMA 
NODULES  CALLED:  DBKEV 
CALLIN6  NODULES:  IDNSOUT 
AUTHOR:  CAPT.  JERRY  ONENS 
HISTORY: 


■  / 

BILDSET:  PROCEDURE (REC  DESC, SET.DESC, SETNUH) I 
DCL  SETNUH  FINED  BIN(IS); 

DCL  I,J  FIXED  BIN(15M 
DCL  1  REC  DESC  (*), 

2  NAME  REC  CHAR(16), 

2  NEXT  PTR  FIXED  BINI15), 

2  PRIOR  PTR  FIXED  BIN(15); 

DCL  1  SET.DESC  <«), 

2  SET  NAHE  CHAR (16), 

2  SET.ONNER  CHAR  116), 

2  SET  MEMBER  CHAR (16); 

PUT  FILE (SCHEMA)  EDIT  (’»’) (COL (7), A); 

PUT  FILE (SCHEMA)  EDIT 

( ’  •  mm  mmmmmmmmmm  mtmmmt  ’ ) 

(COL (7), A); 

PUT  FILE  (SCHEMA)  EDIT  (’m#m’)(C0L(62),A)} 

PUT  FILE(SCHEMA)  EDIT 

(’t  *  SET  DESCRIPTION  STATEMENTS  ') 

( COL { 7 ) , A ) ; 

PUT  FILE (SCHEMA)  EDIT  (’  »’) <COL(55),A>; 

PUT  FILE (SCHEMA)  EDIT 

( ’  •  HHHHHHHHHHHHIlHHHHHMHHimim’ ) 

(COL (7) f A) ; 

PUT  FILE (SCHEMA)  EDIT  (’mm*1) (COL (62), A); 

PUT  FILE(SCHEMA)  EDIT  (’♦  ’)(C0L(7),A)| 

PUT  FILE (SCHEMA)  EDIT  (’SET  DESCRIPTION.') (C0L(8), A); 

DO  I  *  1  TO  SETNUH  -  1; 

PUT  FILE (SCHEMA)  SKIPI2)  EDIT  (’SET  NAHE  IS  ’, 

SET.DESC (I). SET  NAME,’.’) 
(C0L(8),A,C0L(2O),A,C0L(37),A); 

PUT  FILE (SCHEMA)  EDIT  (’ORDER  IS  NEXT.’) (COL IB), A); 


/•  DBKEY  3.5.1  ♦/ 

/IHHIHIIIHHHHHHitHHIIIIHItHHItIHIHIHHIHIIHHHH 

t  BATE:  16  SEP  83  '  * 

•  version:  i.o  f 

t  NAME:  DBKEY  # 

•  NODULE:  3.5.1  • 

•  FUNCTION:  6ET  THE  ONNER  AND  NENBER  OF  THE  CURRENT  SET,  AL0N6  • 

•  N1TH  THE  CURRENT  NEIT  AND  PRIOR  POINTER  OF  EACH.  t 

•  INPUTS:  REC.DESC,  SET.DESC  * 

•  OUTPUTS:  ♦ 

t  GLOBAL  VARIABLES  USED:  ♦ 

•  6L0BAL  VARIABLES  CHAN6ED:  t 

•  GLOBAL  TABLES  USED:  * 

«  FILES  READ:  • 

•  FILES  NRITTEN:  SCHENA  * 

•  NODULES  CALLED:  * 

i  CALLING  NODULES:  BILDSET  ♦ 

•  AUTHOR:  CAPT.  JERRY  ONENS  * 

t  HISTORY:  i 

tttttttHfttttttfHffttftHItftftffffffftfftttftffttfff  tffttfffttff  / 
/# 

*/ 

DBKEY:  PROCEDURE (REC.DESC, SET.DESC) f 
DCL  1  REC  DESC  (*), 

2  NAHE  REC  CHAR (16) , 

2  NEXT  PTR  FIXED  BIN ( 15) f 
2  PRIOR  PTR  FIXED  BIN(15); 

DCL  1  SET  DESC, 

2  SET.NANE  CHAR (16), 

2  SET.ONNER  CHAR (16), 

2  SET  NENBER  CHAR (16); 

DCL  I  FIXED  BIN(15)  INIT  (1); 

DO  NHILE  (REC.DESC ( I l.NAHE.REC  :=  SET.DESC. SET.ONNER); 

I  *  i  ♦  i; 

END; 

PUT  FILE  (SCHENA)  EDIT  CONNER  IS  ’,  REC. DESC  ( I ).  NAHE.  REC, 

•NEXT  DBKEY  POSITION  IS  ’,REC.DESC(I).NEXT.PTR) 

(COL (8), A, COL (17), A, COL (40), A, COL (63), F(3)); 
REC.DESC! I ).NEXT,PTR  «  REC.DESCdl.PRIOR.PTR  ♦  1; 

PUT  FILE (SCHENA)  tOIT  ('PRIOR  DBKEY  POSITION  IS  ', 

REC.DESCdl.PRIOR.PTR,  \’l  (C0L(40),A,CDL(64),F  (3),  COL  (67),  A); 
REC.DESCdl.PRIOR.PTR  «  REC.DESCdl.NEXT.PTR  ♦  1; 

I »  l; 

DO  NHILE  (REC.DESC! I l.NAHE.REC  :*  SET.DESC. SET.HEHBER); 

I  •  I  ♦  1? 

END; 

PUT  FILE(SCHEHA)  EDIT  ('NENBER  IS  REC.DESC (I l.NAHE.REC, 

'NEXT  DBKEY  POSITION  ’is  ', REC.DESCdl.NEXT.PTR) 

(COL  (8) ,  A,COL  (18) ,  A,  COL  («0) ,  A,  COL  (63) ,  F  (3) )’; 
REC.DESCdl.NEXT.PTR  *  REC.DESCdl.PRIOR  PTR  ♦  1; 

PUT>ILE!SCHEHA)  EDIT  (’PRIOR  DBKEY  POSITION  IS  ’, 

REC.DESCdl.PRIOR.PTR)  (C0LI40), A, COL (64) ,F (3) ) | 


/»  DHCL  3.6  */ 

/HHHHHdHHtlilttOtKHHIttlltHHHKKHHiltllKttiHlHi 

•  DATE:  20  SEP  83  "  * 

t  VERSION:  1.1  * 

»  NAME:  DHCL  * 

£  MODULE  NUMBER:  3.6  t 

•  FUNCTION:  CREATE  THE  ASSOCIATED  DHCL  INPUT  FOR  THE  SCHEHA  » 

•  INPUTS:  SCHEHA.NAHE,  SCHEHA  VERSION,  AUTHOR,  TOQATE,  AREA  NAME,* 

t  DHCL.NAHE  * 

«  OUTPUTS:  DHCL.NAHE  * 

•  6L0BAL  VARIABLES  USED:  * 

•  6L0BAL  VARIABLES  CHAN6ED:  « 

•  GLOBAL  TABLES  USED:  * 

•  FILES  READ:  USRDEFS  * 

»  FILES  WRITTEN:  DHCL  » 

•  HODULES  CALLED:  ♦ 

•  CALLING  HODULES:  IDHSOUT  * 

•  AUTHOR:  CAPT.  JERRY  OMENS  » 

»  HISTORY:  i 

ttitttf  tf  tttttf  tttftttttHtff  tttttttttttttttittftf  itttttttttttftttt/ 


♦/ 

DHCL:  PROCEDURE  (SCHEHA.NAHE, SCHEHA.VERSION, AUTHOR, TODATE, 

AREA.NAHE, DHCL.NAHE); 

DCL  SCHEHA  NAHE  CHAR (8); 

DCL  DHCL  NAHE  CHAR(8)j 
DCL  SCHEHA  VERSION  CHAR (3)J 
DCL  TODATE  CHAR (9); 

DCL  AREA.NAHE  CHAR ( 16) | 

DCL  AUTHOR  CHAR<30); 

BET  FILE(USRDEFS)  EDIT  (DHCL.NAHE) <COL(l),A<8))5 
PUT  FILE(DHCLFLE)  EDIT  (’DEVICE -HEDIA  DESCRIPTION.') 

(C0L(8),A); 

PUT  FILE (DMCLFLE)  EDIT 

(’DEVICE-MEDIA  NAHE  IS’, DHCL.NAHE, ’OF  SCHEHA  NAHE’, 

SCHEHA.NAHE, ’VERSION’ , SCHEHA  VERSION, ’ . ’ ) 
(COL (8), A, COL (29), A, COL (38), A, COL (53), A, 

COL (62), A, COL (71), A, COL (75), A); 

PUT  FILE (DHCLFLE)  SKIP(2)  *DIT  (’AUTHOR.’, AUTHOR,’.’) 

(COL (8), A, COL (30), A, COL (60), A); 

PUT  FILE (DHCLFLE)  EDIT  (’DATE.’, TODATE) (COL (8), A, COL (30), A); 

PUT  FILE (DHCLFLE)  SKIP<2)  EDIT  (’INSTALLATION.’, ’NAS  7000  -  2’) 
(C0L(8),A,C0L(J0),A); 

PUT  FILE (DHCLFLE)  EDIT  ( ’ WRI8HT  -  PATTERSON  AFB,  OHIO.’) (C0L(30),A)i 
PUT  FILE (DHCLFLE)  SKIPI2)  EDIT 

('REHARKS. ’,'THIS  IS  A  GENERAL  FORH  OF  THE’) 
(C0L(8),A,C0L(30),A); 

PUT  FILE (DHCLFLE)  EDIT  (’DHCL.  PLEASE  HAKE  THE  DESIRED  CHANGES. ’ ) 
(COL (30) , A) ; 

PUT  FILE (DHCLFLE)  SKIPI2)  EDIT  (’BUFFER  SECTION.’) (COL(B), A); 

PUT  FILE (DHCLFLE)  EDIT  (’BUFFER  NAHE  IS  GENERAL-BUFFER’) (C0L(12), A); 


PUT  FILE(DHCLFLE)  EDIT  (’PAGE  CONTAINS  4060  CHARACTERS’) (COL (16), A) 
PUT  FILE (DMCLFLE)  EDIT  (’BUFFER  CONTAINS  B  PAGES.’) (COL (16), A) i 
PUT  FILE(DHCLFLE)  SKIP(2)  EDIT  (’AREA  SECTION.’) (COLfGT, A); 

PUT  FILE (DHCLFLE)  EDIT  (’ COPY ’.AREA.NAHE, ’AREA’ ) 

(C0L(12),A,C0L(17!,A,C0L(34),A)i 

PUT  FILE (DHCLFLE)  EDIT  ( ’ FROM  SCHEHA  N AHE ’ , SCHEHA.NAHE , ’ VERS I ON ’ , 
SCHEHA. VERSION) (COL (16) , A, COL (33) , A, 

COL (42), A, COL (50), A) | 

PUT  FILE (DMCLFLE)  EDIT  (’BUFFER  IS  6ENERAL-BUFFER. ’ ) 

(COL ( 1 6) , A) } 

PUT  FILE (DHCLFLE)  SKIP<2)  EDIT  (’JOURNAL  SECTION.’) (C0L(8),A)i 
PUT  FILE (DHCLFLE)  EDIT  (’JOURNAL  BLOCK  CONTAINS  1000  CHARACTERS.’) 
(COL (12), A); 

PUT  FILE (DHCLFLE)  EDIT 

('FILE  NAHE  IS  TAPE- JOURNAL  ASSI6N  TO  SYSJRNL’) 

(COL  < 12) , A) , 

PUT  FILE (DHCLFLE)  EDIT  (’DEVICE  TYPE  IS  2400.’) (COL (33), A) J 
CLOSE  FILE(DHCLFLE), 

END  DHCL; 


/ 

If 


SUBSCHtl  3.7  •/ 


DATE:  20  SEP  83 
VERSION:  1.0 
NAME:  SUBSCHM 

NODULE  NUMBER:  3.7  * 

function:  create  the  associated  subschema  for  the  current 

SCHEMA. 

inputs:  schema  jmm e,  rec.desc,  set.desc,  recnum,  setnum 
outputs: 

GLOBAL  VARIABLES  USED: 

6L0BAL  VARIABLES  CHANGED: 

6L06AL  TABLES  USED: 

FILES  READ:  USRDEFS 
FILES  WRITTEN:  SUBS 
MODULES  CALLED: 

CALLING  MODULES:  IDNSOUT 
AUTHOR:  CAPT.  JERRY  OWENS 

history: 


/ 


/ 


#/ 

SUBSCHM:  PROCEDURE (SCHEMA.NAME, REC.DESC, SET.DESC, RECNUM, SETNUM) ; 
DCL  SCHEMA.NAME  CHAR (8) j 
DCL  SUB  NAME  CHAR (8); 

DCL  RECNUM  FI  TED  BIN! 15); 

DCL  SETNUM  FIXED  BINI15); 

DCL  1  REC.DESC  <«), 

2  NAME  REC  CHAR (16), 

2  NETT.PTR  FITED  BIN(15), 

2  PRIOR.PTR  FITED  BINI15); 

DCL  1  SET.DESC  <#), 

2  SET.NAME  CHAR (16), 

2  SET. OWNER  CHAR (16), 

2  SET.MEMBER  CHAR (16); 

6ET  FILE(USRDEFS)  EDIT  (SUB.NAME) (COL ( 1 ) , A (8) ) ; 

PUT  FILE (SUBS)  EDIT  (’DELETE  SUBSCHEMA  NAME  IS’, SUB.NAME,’.’) 

(C0L(12),A,C0L(38),A,C0L(46),A); 

PUT  FILE (SUBS)  EDIT  ('ADD  SUBSCHEMA  NAME  IS', SUB.NAME) 

(COL ( 12) , A, COL (34) , A) S 

PUT  FILE (SUBS)  EDIT  (’OF  SCHEMA  NAME  IS’.SCHENA.NAME) 

(COL ( 17 ) , A, COL (35) , A) ; 

PUT  FILE (SUBS)  EDIT  ( ’ DMCL  NAME  IS’,DMCL  NAME,’.’) 

<C0L(19),A,C0L(32),A,C0L(41),A); 

PUT  FILE (SUBS)  EDIT  (’ADD  AREA’ , AREA.MAME, ’ . ' ) 

(COL (12), A, COL (21), A, COL (37), A) | 

DO  I  *  1  TO  RECNUM  -  i; 

PUT  FILE (SUBS)  EDIT  (’ADD  RECORD ’, REC.DESC ( I ) . NAME.REC, ’ . ’ ) 

(COL (12), A, COL (23), A, COL (40), A); 


end; 

DO  I  «  1  TO  SETNUM  -  l; 

PUT  FILE (SUBS)  EDIT  (’ADD  SET’, SET.DESC ( I ). SET.NAME,’.') 


E  -  67 


►  /* 


Appendix  F 

Automated  Hierarchical  -  CODASYL  Database  Inter-face 
Schema  Translator  TSO  CLIST  Source  Code 


CL 1ST  Program  Name:  Menu 


Author:  Capt.  Jerry  Owens 


PROC  0 

I*  This  CLIST  allows  the  user  to  execute  programs  developed 

/•  for  the  s2k  to  ides  scheaa  translation 

HRITE 

WRITE  *mt»###***m*«  s2k  to  idas  translator  aenu  imhihhhmhhi 
WRITE  i 

WRITE  •  1)  run  usrprap  3)  run  idaiout  < 

HRITE  *  .2)  run  rdscha  >3)  exit  aenu 

HRITE  «  i 

HRITE 

HRITENR  Enter  aenu  nuaber: 

READ  ItSELECT 

DOSELECT:  IF  trSELECT  =  1  THEN  ♦ 

EXEC  jgo.dist(usrprap) 

IF  (SELECT  *  2  THEN  ♦ 

EXEC  jgo. clist (rdscha) 

IF  (SELECT  «  3  THEN  ♦ 

EXEC  jgo.dist(idasout) 

IF  (SELECT  <  4  THEN  + 

EXEC  jgo.disttaanu) 


F  -  1 


.-lV 


CL I ST  Program  Name:  Usrprmp 


Author:  Capt.  Jerry  Owens 


PROC  1  USERDEFS  PRINT (Dft(*)) 

/*  This  clist  allows  the  Usrprap  aodulc  to  execute  in  the  foreground  *1 
CONTROL  N0HS6 

FREE  F  (USERIN, SYSPRJNT, USERtXJT,  SCHMIN,  SCHMOUT) 

ALLOC  F(USEROUT)  DA( ’18YSPREF. . tUSERDEFS’ )  SHR 
ALLOC  F(US£R1N)  DA(t) 

ALLOC  F(SYSPRINT)  DA(») 

CALL  *  A740308 . J60 . LOAD ( USRPRMP ) ’ 

FREE  F ( USER I N, SYSPR I NT | USEROUT ) 

FREE  DSN ! ’ A740308. J60. LOAD* ) 


l\V 

K  - 


CLIST  Program  Name:  Rdschm 


Author:  Capt.  Jarry  Owens 


PROC  6  S2KSCHH  S2KTEMP  IDHSMODL  STARTNUN  INCNUM  HS6CLASS 


CONTROL  N0HS6 

/*  •/ 

/•  Tht  Rdscha  diet  builds  the  nicttiary  JCL  to  axacuta  the  rdscha  •/ 

/*  PL/1  aodult  in  the  background.  */ 

/HHHHimHHHHmHHflHHHIHHHHHHNHiHiHHIHmit/ 
/«  »/ 

/miWHHHHHHfHHHHimHimiHHIHHHHHHHHHiHHl/ 

/•  BUILD  JOB  CARS  INFORMATION  */ 

/HHMHHHHHHHHHHHHIIIHHIHHtHHHIHHIHHIHHIHf/ 
/•  •/ 


SET  tJOBCARDi  «  (STR ( // ) kSYSUI OliSTR < TRNS  JOB  JbSUBSTRdMl,  (4308,210),) 
SET  M0BCARD2  *  bSYSUIDISTRt, CLASS’S, MS6CLASS=)bRS6CLASSbSTR(,> 

SET  (J0BCARD3  *  ItSTR (//  NOTIFY*) ISYSU1D, bSTR  f MSBLEVEL* (1 , 1 ) , TIME*5, ) 

SET  IJ0BCARD4  *  bSTR(RE6IQN*500K) 

SET  bJOBCARDA  *  ISTR  ( tc JOBCARD 1  tc J0BCAR02 ) 

SET  IJOBCARDB  *  bSTR(bJ0BCARD3bJ0BCARD4) 

SET  IJOBCARDC  *  bSTRi/tJOBPARH  S-NAS1) 

/»  *1 

/IHHfltHtlllHIHIIIHHHHHmtllHtlllHIHIIillllHIHfmm/ 

/#  BUILD  5TEPLI8  INFORMATION  */ 

/*#am*m»*ittt**»»»tt«t*»*mt»»tt#Mt*tH»»»tim»*M»m*t#»*ttf/ 
/♦  */ 

SET  bTHESISl  *  ISTR (//RDSCHM  EXEC  P6N-RDSCHR) 

SET  bSTEPLIB  *  VSTR (//STEPLIB  DD  DSN*A74030B. JBO. LOAD, DISP=SHR) 

SET  bSLASHl  *  l>STR(/«) 

SET  bSYSPRINT  *  bSTR<//SO.SYSPRINT  DD  SYSOUT*#) 


/*  •/ 

/WmHHHIHHHHHHHHIHHIHimHHHHHHHHHHHHm/ 

/•  BUILD  INPUT  FILE(S)  INFORMATION  «/ 

/HHmWHUWWtWHtHIIHHHHMHHHHHHHHHHIWHI/ 
/*  »/ 


SET  IINPT1  «  4STR ( / /60. 82KSCHM  DD  DISP«8HR,5SN*) 
SET  IINPT2  >  bSYSPREFbSTR ( . ) IS2KSCHH 
SET  bINPTCARD  >  ItSTR (IINPTUINPT2) 

SET  bOUPTl  «  ItSTR (//60. S2ICTEHP  DD  DISP«SHR,DSN*> 
SET  UUPT2  *  bSYSPREFbSTR  WbS2KTEHP 
SET  bOUPTCARD  «  bSTR(bOUPTlbOUPT2) 

SET  bINFLI  >  bSTR ( / /60. IDHSHDL  DD  DISP*SHR,D8N*) 
SET  bINFL2  *  bSYSPREFbSTRf. IblDNSMODL 
SET  bINFLCARD  *  bSTR(bINFLlb!NFL2) 

SET  bDDCARD  «  bSTR (//BO.SYSIN  DD  t) 

SET  bINPTDATA  >  bSTARTNUNbSTRI  IbINCNUH 


F  -  3 


/mttttmtmmftmtfttmttHmmttmtmtmttmtitmttm/ 

/#  BUILD  IEB6ENER  JCL  CARDS  •/ 

I*  *1 


SET  46ENER  «  4STR(//STEP2  EXEC  P6N=IEBSENER) 

SET  46ENSYS  *  tiSTR ( //SYSPRINT  DD  SYSOUT**) 

SET  4DUHHY  >  4STRI//SYSIN  DD  DUHHY) 

SET  4SYSUT1A  >  IrSTR (//SYSUT1  DD  DISP=SHR,DSN=) 

SET  leSYSUTIB  «  4SYSPREF4STR  ( . ) 4IDHSH0DL 
SET  ISYSUT1  *  4STR  f 4SYSUT1 A4SYSUT 1 B) 

SET  4SYSUT2  «  4STRI//SYSUT2  DD  SYSOUT**) 

SET  tSLASHEND  «  tSTR(//) 

/•  */ 

/•  BUILD  THE  OUTPUT  FILE  USING  THE  PREVIOUSLY  CARDS  */ 

/«  CLIST  IS  EXPECTING  TO  FIND  A  DATASET  NITH  USERID. IONS. DATA  */ 

/fffffMffHftffffffffffffffiiffffMtmfffffffffffHmmmmtm/ 
/*  */ 

FREE  F(JCL) 

ALLOC  F (JCL)  DA (4SYSUID.. IONS. DATA)  OLD 

OPENFILE  JCL  OUTPUT 

SET  IJCL  «  tSTR(tJOBCARDA) 

PUTFILE  JCL 

SET  4 JCL  -  ISTR(AJQBCAfiOB) 

PUTFILE  JCL 

SET  4JCL  «  4STR (4J0BCARDC) 

PUTFILE  JCL 

SET  4JCL  >  ASTR(ATHESISl) 

PUTFILE  JCL 

SET  4JCL  *  4STR (4STEPLIB) 

PUTFILE  JCL 

SET  4JCL  «  4STR (4SLASH1 ) 

PUTFILE  JCL 

SET  4JCL  «  ASTR(ASYSPRINT) 

PUTFILE  JCL 

SET  4JCL  =  4STR  (tcINPTCARD) 

PUTFILE  JCL 

SET  4JCL  *  4STR (40UPTCARD) 

PUTFILE  JCL 

SET  4JCL  -  4STR (4INFLCARD) 

PUTFILE  JCL 

SET  4JCL  *  4STR ( 4DDCARD ) 

PUTFILE  JCL 

SET  4JCL  *  4STRI4INPTDATA) 

PUTFILE  JCL 

SET  4JCL  <  4STR (4SLASH1 ) 

PUTFILE  JCL 

SET  4JCL  •  4STRI46ENER) 

PUTFILE  JCL 

SET  4JCL  *  4STRI46ENSYS) 

PUTFILE  JCL 

SET  4JCL  >  4STR(4DUNNY) 


F  -  4 


PUTFILE  JCL 

SET  IJCL  ■  ISTR(ISYSUTl) 
PUTFILE  JCL 

SET  IJCL  «  ISTR(ISVSUT2) 
PUTFILE  JCL 

SET  IJCL  «  ISTR(ISLASHl) 
PUTFILE  JCL 

SET  IJCL  »  ISTR ( ISLASHEND ) 
PUTFILE  JCL 
CLOSFILE  JCL 


/»  */ 

I*  SUBMIT  THE  NEWLY  CREATED  FILE  •/ 

/•WMMfMMMHfHHMMHffMHHHtfHtfHfHfHHMHHHHHM#/ 
/•  */ 


CONTROL  USB 

SUBMIT  ISYSUIO. .IOMS.DATA 
CONTROL  N0HS6 
FREE  F(JCL) 


CLIST  Program  Name:  Idmsout 


Author:  Capt.  Jerry  Owens 


PROC  6  USEROEFS  SCHEMA  I0HSH0DL  DHCL  SUBSCHEH  HS6CLASS 
CONTROL  NONSS 

/*  «/ 

/#  The  Idasout  Clist  builds  the  nectss iry  JCL  to  execute  the  •/ 

/*  Idasout  PL/1  aodule  in  the  background  •/ 

/*  *1 

/tttiittf tttf tftf tftf ttlttitttttttttf ttftf Iff fflftf tititf if tttttffttf / 

/t  BUILD  JOB  CARD  INPORHATION  •/ 

/eeeeHHeHefeeetteeeeteeeeeeeHeteeteteeeeeeeeeteeeteeeHeeHeeeeet/ 
/♦  */ 

SET  IJ0BCARD1  «  (STR(//)ISYSUIDISTR(IDHS  JOB  >ISUBSTR(l:ll, (4308,210),) 
SET  U0BCARD2  =  fcSYSUI DkSTR  < , CLASSES, HS6CLASS«) MSBCLASSfcSTR  ( , ) 

SET  IJ0BCARD3  *  ISTR (//  NOTIFY^) kSYSUID, fcSTR (NSSLEVEL- (1,1) , TIHE-5,  > 

SET  (J0BCARD4  =  ISTR(RE6I0N=500K) 

SET  IJOBCARDA  -  ISTR (l JQBCARD11J0BCARD2 ) 

SET  IJOBCARDB  *  (STR((J0BCARD31J0BCARD4) 

SET  IJOBCARDC  «  ISTR(/*J0BPARH  S-NAS1) 

/#  »/ 

/•  BUILD  STEPLIB  INPORHATION  #/ 

/emettftemteemmmtfftttfffmsmmemmmmttmetmt/ 
/»  */ 

SET  HDHSDUT  *  (STSI//IDHSOUT  EXEC  P6H*JD»S0UT) 

SET  ISTEPLIB  «  ISTR (//STEPLIB  OD  DSN>A740308. J60.L0AD, DISP=SHR) 

SET  (SLASH 1  «  lSTR(/«) 

SET  ISYSPRINT  «  ISTR(//60.SYSPRINT  DD  SYSQUT**) 

/•  */ 

/•eefeeeeeseesteMeesfeeetteeeeetetetetefeeeaesMseeeeeeteseseseetett/ 
/i  BUILD  INPUT  FILE(S)  INPORHATION  •/ 


SET  IUSER1  «  IrSTR ( //60. USRDEPS  DD  DISP»SHR,  DSN-) 
SET  IUSER2  »  (SYSPREPIcSTR  ( . )  &USERDEPS 
SET  (USERCARD  *  ISTR(IUSER11USER2) 

SET  I0UT1  •  kSTR(/ /SO. SCHEMA  DD  DISP-SHR, DSN-) 
SET  (0UT2  «  ISYSPREFISTR ( . ) ISCHEHA 
SET  IOUTCARD  »  ISTRIIDUTKOUTB) 

SET  IINFL1  «  ISTR I //BO. IDHSHDL  DD  DISP*SHR,DSN=) 
SET  IINPL2  *  ISYSPREFISTR!.  XIDHSHODL 
SET  IINPLCARD  *  ISTR(IINFL11INFL2) 

SET  bDHCLl  >  ItSTR (//60. DHCLFLE  DO  0!SP>SHR,DSN*) 
SET  IDHCL2  -  ISYSPREFISTRf. 11DHCL 
SET  IDHCLCARO  =  ISTR  ( (DHCL  UDHCL2) 

SET  ISUBS1  *  ISTR (//SO. SUBS  DD  D1SP-SHR, DSN=) 

SET  ISUBS2  *  (SYSPREFISTRt.) (SUBSCHEH 
SET  (SUBSCARD  >  ISTR (ISUBS1ISUBS2) 


F  -  6 


/#  BUILD  1E66ENER  JCL  CARDS  _  */ 

/ttffifftiitfttiitftttttttltttttf tftttttfiftttttttttftttf if if ttf tif tt/ 
/#  */ 
SET  &6ENER2  •  ISTRI//STEP2  EXEC  P6M*IEB6ENER) 

SET  tr6ENER3  *  ISTR1//STEP3  EXEC  P6H=IEB6ENER) 

SET  16ENER4  -  ISTRI//STEP4  EXEC  PGM=IEB6ENER) 

SET  ti6ENSYS  =  fcSTR < //SYSPRINT  DD  SYSOUT=#) 

SET  IDUHHY  -  ltSTR(//SYSIN  DD  DUMMY) 

SET  IrSYSUTIA  •  IrSTR (//SYSUT1  DD  DISP=SHR,OSN=> 

SET  ISYSUT1B  -  ISYSPREFISTR ( . ) (SCHEMA 
SET  ISYSUTiC  -  ISYSPREFISTR (.  IIDHCL 
SET  ISYSUT1D  =  ftSYSPREFItSTR  ( . )  IcSUBSCHEH 
SET  IGEN2  *  tiSTR  (trSYSUTl AttSYSUTIB) 

SET  I6EN3  «  ISTR(ISYSUTIAISYSUTIC) 

SET  I6EN4  =  tiSTR (ISYSUT 1 AISYSUT ID) 

SET  ISYSUT2  =  &STR  (//SYSUT2  DO  SYSOUMI 
SET  tiSLASHEND  *  ISTR (//) 

/*  «/ 

/HHHfHiHKHtHHKKfllHilHKHtHHiHiHmHHHHHOHII/ 

/#  BUILD  THE  OUTPUT  FILE  USIN6  THE  PREVIOUSLY  CARDS  */ 

/*  CLIST.  IS  EXPECTING  TO  FIND  A  DATASET  NITH  USERID. IDHS.DATA  ♦/ 

/•  */ 

FREE  F (JCL) 

ALLOC  F (JCL)  DA (LSYSUID.. IDHS.DATA)  OLD 

OPENFILE  JCL  OUTPUT 

SET  IJCL  «  tSTRUJOBCMM) 

PUTCILE  JCL 

SET  IJCL  *  ItSTR(liJOBCARDB) 

PUTFILE  JCL 

SET  IJCL  *  ISTR(IJOBCARDC) 

PUTFILE  JCL 

SET  IJCL  *  ISTRIIIDHSOUT) 

PUTFILE  JCL 

SET  IJCL  *  ISTR(ltSTEPLlB) 

PUTFILE  JCL 

SET  IJCL  *  ISTRtkSLASHl) 

PUTFILE  JCL 

SET  IJCL  *  ISTR(ISYSPRINT) 

PUTFILE  JCL 

SET  IJCL  *  ISTR (IUSERCARD) 

PUTFILE  JCL 

SET  IJCL  *  ISTR(IDUTCARD) 

PUTFILE  JCL 

SET  IJCL  '  ISTR (IINFLCARD) 

PUTFILE  JCL 

SET  IJCL  *  ISTR(IDMCLCARD) 

PUTFILE  JCL 

SET  IJCL  «  ISTR (ISUBSCARD ) 

PUTFILE  JCL 

SET  IJCL  *  ISTR (ISLASH1 ) 

PUTFILE  JCL 


F  -  7 


SET  IJCL  *  ISTR<I6ENER2) 
PUTFILE  JCL 

SET  IJCL  *  ISTR(ISENSYS) 
PUTFILE  JCL 

SET  It  JCL  *  ISTR  (MUMMY) 
PUTFILE  JCL 
SET  IJCL  *  ltSTR<SiGEN2> 
PUTFILE  JCL 

SET  IJCL  *  ItSTR <ltSYSUT2) 
PUTFILE  JCL 

SET  IJCL  *  ISTR(ISLASHl) 
PUTFILE  JCL 

SET  ttJCL  «  tiSTR  (ItSLASHl ) 
PUTFILE  JCL 

SET  IJCL  -  ISTR(16ENER3) 
PUTFILE  JCL 

SET  IJCL  =  ISTR (I6ENSYS) 
PUTFILE  JCL 

SET  IJCL  *  ISTR(IOURHY) 
PUTFILE  JCL 
SET  IJCL  *  ISTR(I6EN3) 
PUTFILE  JCL 

SET  IJCL  *  ISTR (ISYSUT2) 
PUTFILE  JCL 

SET  IJCL  «  ISTR (ISLASH1 ) 
PUTFILE  JCL 

SET  IJCL  *  ISTR (I6ENER4) 
PUTFILE  JCL 

SET  IJCL  «  ISTR (I6ENSYS) 
PUTFILE  JCL 

SET  IJCL  «  ISTR(IDUMMY) 
PUTFILE  JCL 
SET  IJCL  *  ISTR (I6EN4) 
PUTFILE  JCL 

SET  IJCL  «  IrSTR  CISYSUT2) 
PUTFILE  JCL 

SET  IJCL  *  ISTR(lSLASHl) 
PUTFILE  JCL 

SET  IJCL  *  ISTR (ISLASHEND  > 
PUTFILE  JCL 
CLOSFILE  JCL 


/#  t  / 

/HHIHtHHHHHHfltMHHItHHIHimiHHHHItHHHHHHHI/ 

/*  SUBMIT  THE  NENLY  CREATED  FILE  «/ 

/«  «/ 


CONTROL  NSS 

SUBMIT  ISYSUID. .IDMS.DATA 
CONTROL  NWSB 
FREE  F (JCL) 


Appendix  Q 

Automated  Hierarchical  -  CODAS YL  Database  Interface 
Schema  Translator  Sample  Output 


File  Name:  USERDEFS 


AFITSCHH 

1 

CAPT  JERRY  OMENS 
513-255-6321 
AFITFIIE 
3330B 

AFIT-RE6I0N 

4000 

4099 

AF1TWICL 

AFITSUB1 


File  Name:  S2ks chem 


SYSTEM  RELEASE  NUMBER  10.1 
DATA  BASE  NAME  IS  EMPLOYEE 
DEFINITION  NUMBER  9 

DATA  BASE  CYCLE  NUMBER  IS 

1*  EMPLOYEE  NUMBER  (INTE6ER  NUMBER  9999) 

2*  LAST  NAME  (CHAR  1(10)  WITH  FEN  FUTURE  OCCURRENCES  ) 

J*  FORENAME  (NON-KEY  CHAR  1(20)) 

4*  HIRE  DATE  (DATE) 

5*  BIRTHDAY  (DATE) 

6*  SOCIAL  SECURITY  NUMBER  (NON-KEY  CHAR  1(11)) 

7*  SEI  (CHAR  KB)  WITH  MANY  FUTURE  OCCURRENCES  > 

8»  ETHNIC  0RI6IN  (CHAR  1(9)  N1TH  SOME  FUTURE  OCCURRENCES  ) 

9«  EMPLOYEE  STATUS  (CHAR  1(9)  NITH  MANY  FUTURE  OCCURRENCES  ) 

10*  OFFICE-EXTENSION  (NON-KEY  CHAR  1(9)) 

11*  ACCRUED  VACATION  (NON-KEY  DECIMAL  NUMBER  999.99) 

12*  ACCRUED  SICK  LEAVE  (NON-KEY  DECIMAL  NUMBER  999.99) 

13*  SECURITY  CLEARANCE  (INTEGER  NUMBER  999  NITH  MANY  FUTURE  OCCURR 
ENCES  ) 

14*  STREET  ADDRESS  (NON-KEY  CHAR  1(20)) 

15*  CITY-STATE  (NON-KEY  CHAR  1(151) 

16*  ZIP  CODE  (CHAR  1(5)  NITH  FEN  FUTURE  OCCURRENCES  ) 

100*  POSITION  WITHIN  COMPANY  (RECORD) 

101*  POSITION  TITLE  (NON-KEY  CHAR  1(10)  IN  100) 

102*  DEPARTMENT  (CHAR  1(14)  IN  100  NITH  SOME  FUTURE  OCCURRENCES  ) 

103*  MANAGER  (l,  1  111  IN  100  NITH  FEN  FUTURE  OCCURRENCES  ) 

104*  POSITION  TYPE  (CHAR  1(12)  IN  100  NITH  SOME  FUTURE  OCCURRENCE 
S  ) 

105*  START  DATE  (DATE  IN  100) 

106*  END  DATE  (NON-KEY  DATE  IN  100) 

110*  SALARY  NITH1N  POSITION  (RECORD  IN  100) 

111*  PAY  RATE  (HONEY  *9999.99  IN  110) 

1 12*  PAY  SCHEME  (CHAR  1(7)  IN  110) 

113*  EFFECTIVE  DATE  (DATE  IN  110) 

114*  CURRENT  DEDUCTION  (NON-KEY  MONEY  *9999.99  IN  110) 

120*  MONTHLY  PAYROLL  ACCOUNTING  (RECORD  IN  110) 

121*  PAYROLL  MONTH  (DATE  IN  120) 

122*  REGULAR  HOURS  (NON-KEY  DECIMAL  NUMBER  999.99  IN  120) 

123*  OVERTIME  HOURS  (NON-KEY  DECIMAL  NUMBER  999.99  IN  120) 
124*  8R0SS  PAY  (NON-KEY  MONEY  19999.99  IN  120) 

123*  FEDERAL  TA1  DEDUCTION  (NON-KEY  MONEY  *9999.99  IN  120) 
126*  NET  PAY  (NON-KEY  HONEY  *9999.99  IN  120) 

130*  ADDITIONAL  INFORMATION  (RECORD  IN  100) 

131*  LINE  NUMBER  (DECIMAL  NUMBER  99.9  IN  130) 

132*  COMMENT  TEIT  (NON-KEY  TE1T  1(7)  IN  130) 

200*  JOB  SKILLS  (RECORD) 

201*  SKILL  TYPE  (CHAR  1(12)  IN  200  NITH  SOME  FUTURE  OCCURRENCES  ) 
202*  PROFICIENCY  (NON-KEY  CHAR  K5)  IN  200) 


6  -  2 


203*  YEARS  Of  EXPERIENCE  (MON-KEY  INTE6ER  NUMBER  9?  IN  200) 

300*  PERSONAL  INTERESTS  (RECORD) 

301*  INTEREST  (CHAR  1(12)  IN  300  KITH  FEN  FUTURE  OCCURRENCES  ) 
302*  AFFILIATION  (NON-KEY  CHAR  1(5)  IN  300) 

303*  COMMENT  (NON-KEY  TEIT  1(5)  IN  300) 

400*  EDUCATIONAL  BACKGROUND  (RECORD) 

410*  EDUCATION  (RECORD  IN  400) 

411*  SCHOOL  (CHAR  1(15)  IN  410) 

412*  DESREE/CERTIFICATE  (CHAR  1(7)  IN  410  NITH  FEN  FUTURE  OCCU 
RfiENCES  ) 

413*  DATE  COMPLETED  (DATE  IN  410) 

414*  MAJOR  FIELD  (NON-KEY  CHAR  XflG)  IN  410) 

415*  MINOR  FIELD  (NON-KEY  CHAR  X(12)  IN  410) 

420*  TRAINING  (RECORD  IN  400) 

421*  SOURCE  (NON-KEY  CHAR  1(12)  IN  420) 

422*  CLASS  NAME  (CHAR  1(12)  IN  420  NITH  FEN  FUTURE  OCCURRENCES 
) 

423*  DATE  ACCOMPLISHED  (DATE  IN  420) 


'  AD-A138  812 


UNCLASSIFIED 


AUTOMATED  HIERARCHICAL  TO  CODASVL  (CONFERENCE  ON  DATA 
SVSTEMS  LANGUAGES)  D  .  <U)  AIR  FORCE  INST  OF  TECH 
WRIGHT -PATTERSON  AFB  OH  SCHOOL  OF  ENGI.  .  J  G  OWENS 
16  DEC  83  AFIT/GCS/EE/83D-17  F/G  9/2 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS- I963-A 


File  Name:  Rdschm  Log  Report 


tftltttttttttttttttttHHfttf  ttHtf  ttif  tf  ttttMHttMttttHttHtttltttttttttttf  Iftftffffffffftftftf 

•  DATA  BASE  NAME  IS  EMPLOYEE  » 

•  t 

•  0  EMPLOYEE  REC  » 

HHIHHHHtHIHHIfHHHIHHIHHHHIHHtiHHHHtHHHIHIIHHHHHIHHHHHHHItH 


•  1*  EMPLOYEE  NUMBER  (INTEGER  NUMBER  9999)  « 

t  t 

•  1  EMPLOYEE-NUMBER  0  PIC  9999  COMP-3  • 

MHHHHIIHIIIIIIHHMIHHIHHHH 


mtmitmmttmtmtHtttmitttttmtmtttttimHftttmtmitmmtMttttttttttmmtmt 

•  2*  LAST  NAME  (CHAR  X<10)  NITH  FEN  FUTURE  OCCURRENCES  )  * 

•  « 

•  2  LAST-NAME  0  PIC  X(10)  * 

•MMHfMfMMHffMHMHttHtmHHMMHMMnMHMMMHMMHHMMHHMHMHHtMHMMM 


WtfMttMMIMMtMMMVtMtttMMttMMVCfttMMHtMttMfMttlMfMMtlVtMMMHMVMfftlt+ttffH 


«  3*  FORENAME  (NON-KEY  CHAR  1(20))  • 

f  * 

•  3  FORENAME  0  PIC  X(20)  « 


•  4*  HIRE  DATE  (DATE)  • 

«  t 

•  4  HIRE-DATE  0  PIC  9(7)  COBP-3  * 

HHtHHIHtHHHHHHIIIHIHHHftHfffMHfHHMHIfHHIiHHHiHHHfmttlHHHmiHHI 


ttm 


H 


HHfHHHWIHHHHHIWHHIlHHIiiHfillH  _ 

*  5«  BIRTHDAY  (DATE)  » 

ft  « 

•  5  BIRTHDAY  0  PIC  9(7)  COMP-3  * 

•ftftftftftftftftftftftftftfttftftftftfttftftftftiftftftftftfttftftftftiftftftfttfttiftittftifttftftiftttftftftftftftftftftftftftftfttftfttftftfttftfttftfttftftftftftftftftftftft 


tftftftftftftftftftftftftttftftftftftfttftftttftftfttfttftftftlttltttftftftfttftttftHHftftftftfttftftftftfttftftfftHftftftfftftftftftftftftftftftfftftftftftftftftftft 


*  Aft  SOCIAL  SECURITY  NUMBER  (NON-KEY  CHAR  X(Il))  • 


fttftftffttftMftttftftftftftfttftftftftlfftlfttftfttlftftftfffttftltftfftfttftfttftftftlftftftftttMftftftfttftCtlftftftfftttftftftftftftftftftfttftftftftftl 

•  7*  SET  (CHAR  I (A)  NITH  MANY  FUTURE  OCCURRENCES  ) 

* 

ft  7  SET  0  PIC  X(A) 

ftftftftttftftfttftftfttftftMftftfftftftftfttftftftftttftftfttfftfttfttftttftifttftfttfftCftfftfftttftfttftfttftftfttftftfttftftftftftftftfttftftfttftftftMfftftf 


HHfifiHHHHmiHHmmHHIlHmHIlHHIHHIftmHtHftftlHHiHHHtftttHHHHHftftHHH 

•  B*  ETHNIC  ORIBIN  (CHAR  X(9)  NITH  SORE  FUTURE  OCCURRENCES  )  • 

•  t 

•  8  ETHNIC-ORIGIN  0  PIC  XI9)  • 

•ftft*ft**ft*ftft*ft*ft**ft*ftft**ft**ft*ftft*ft»t*ftt**ft***fttftlftftftft**ftt*M**ftftft***ft********ft**ft*ftftft*ftft*#ftft****ft***ft* 


tftftftftfftfttftftfttftftftfttftftfftfttftttftftftfttftftfttftftftftftttftftftftftfttfttfffftftfftffMfffftfftffttftftftftftftftftftftftttttftfttftftftftfttftftft 

*  9*  EMPLOYEE  STATUS  (CHAR  X(9)  NITH  HANY  FUTURE  OCCURRENCES  )  • 

•  • 

•  9  EMPLOYEE-STATUS  0  PIC  X(9>  « 


•ftftftft**ftftftft*ftftft*ftftftftftftftft*ftftftft*ftftftftftftftft#ftftftftft*ftft***ftft»**ft*ft##*ft*ftft*ft*ft**»ft***ftMftft***ft*ft*ft***ftft*ft**ft* 


•flftftftftftftftftftfttfttftftftftftfttftftftftftftftfttftftttftfttftftfttftftfftltftfttfttftftftftfttftftftftftftftftftfttftftftftttftftfttftfttftftftftftftftftfttftftftftft 


«  10«  OFFICE-EXTENSION  (NON-KEY  CHAR  X(9))  • 

•  • 

•  10  OFFICE-EXTENSION  0  PIC  X(9)  • 

ftftftftftftftftftftftftftHtftftftftttffftftftftftlftfttfttftfttftfttftttftttftttttfttftftftftftffifftMftfftffffftftftftftftftftfttftftfttftftfftftftftftftft 


Hi 


•  111  ACCRUED  VACATION  (NON-KEY  DECIMAL  NUMBER  999.99) 

•  11  ACCRUED-VACATION  0  PIC  999V99  COMP-3 

IHHHHIHfHHmWHiHHHIHIHIIHHIlHHIHHHHHHfHHHKHHHHHHI 


HttHHHHtttft 


IttHttmi* 


HHHHHiHHHIHHHHHiHHHmHHHHIfHHHHHHMiHIHMHMHHHIlHHHHHtHHIH 

•  12#  .ACCRUED  SICK  LEAVE  (NON-KEY  DECIMAL  NUMBER  999.99)  • 


•  12  ACCRUED-SICK-LEAVE  0  PIC  999V99  COMP-3 

MHHHHHHIlHHHHHHHHHHIlHItlHIHHHHHHHHMHHHHHmHHIHH 


•UHHI#H#fH(#t<tfHt((IHH##(f#tlft##ttfltlf#«ltl#ltlt>ffffftttfff(ffft#H#f#ff####tf##t#####f# 

•  13#  SECURITY  CLEARANCE  (INTE6ER  NUMBER  999  HITH  MANY  FUTURE  OCCURRENCES  )  * 


•  13  SECURITY-CLEARANCE 

•HIHHfHHIlHHHHHIHHIHHHI 


0  PIC  999 


COMP-3 


HHiWIHHI 


•ffHHHiHHfHHfHHHHfHfimHHHHHimifHHHIHHHHIHHHHHHIHHIHIHHmHH 

•  14#  STREET  ADDRESS  (NON-KEY  CHAR  1(20))  • 

t  * 

•  14  STREET-ADDRESS  0  PIC  1(20)  • 


HHIHHmiHHHHHHIHHiHItKHHHHHHHHIHItHHHIHHHHHHHHHHHflHHIlHHI 

•  19#  CITY-STATE  (NON-KEY  CHAR  1(15))  # 

•  t 

•  15  CITY-STATE  0  PIC  1(15)  * 

IHHHHHHHHHHHHHHItHHHHtmHHiHtHHIHIHHMfHIHHHHHHHHHHHHHHHt 


••t#M#ftft##tfW#M#####ttt#ttttttlHttttH#ftlHHHHt#H#tM##M###fHf#H#MttttH##ttt§##Htn 

•  U#  ZIP  CODE  (CHAR  1(5)  NITH  FEN  FUTURE  OCCURRENCES  )  • 


ZIP-CODE  0  PIC  1(5)  • 

HHHHftHHHHHHHHHHHHHH*H<HIHHHIWHHWHHHHiHHHHW 


ttmtmmttmtmmmimtmftmmt+iHHttHtmtttitmttmfitmtHttHmtmmttmt 
t  100«  POSITION  NITHIN  COMPANY  (RECORD)  t 

t  • 

t  100  POSITIQN-NITHIN  0  DEC  t 

HMtttiMttMtMttVMttMMMHHMMMHMHtMtttMHttttMMtHMttfMtttMtMHtftHtttHttttH 


ttMfHttttMMttHHttHttHHHttttttttHttttllfttfttttttftttttltt 

t  lot#  POSITION  TITLE  (NON-KEY  CHAR  1(10)  IN  100) 

• 

t  101  POSITION-TITLE  100  PIC  1(10) 


I  HI 


fHHHtHHHHHMHHMKiMfltlMIHHHIHHIHIHIHIIHKHIHIHHIlHIIHHIlHflHIlHMH 

•  102#  DEPARTMENT  (CHAR  1(14)  IN  100  MITH  SORE  FUTURE  OCCURRENCES  )  t 

t  * 

t  102  DEPARTMENT  100  PIC  1(14)  t 


t  103*  MANAGER  (CHAR  III  IN  100  NITH  FEN  FUTURE  OCCURRENCES  )  t 

«  t 

•  103  MANAGER  100  PIC  III  • 

HHHHHIHHHHIHIIHHHHIHtllWHIItfHHHIIIHIHHHHIlHHHHHMHHtlHHHHHHH 


ftmffmfmfffHmtfffftfttmttmmtmmtmmmmttmtmmttmmtmttmmfmtt 

•  104#  POSITION  TYPE  (CHAR  1(12)  IN  100  NITH  SOME  FUTURE  OCCURRENCES  )  • 

t  t 

•  104  POSITION-TYPE  100  PIC  1(12)  t 


t  lOSt  START  DATE  (DATE  IN  100)  t 

t  » 

t  105  START-DATE  100  PIC  9(7)  COMP-3  t 

ttmttmttmmtfmmtfmtHmttmtmmmmmtmMtttmttttmttmmtHttmmmt 


B  -  7 


IHlIHliWHtlHHHHHiHHIHmtHlltlttltHHtliHIMIIHIIHIHHIHHIlHHHHHHimHH 

«  106*  END  DATE  (NON-KEY  DATE  IN  100)  _  • 

•  * 
•  106  END-DATE  100  PIC  9(7)  C0HP-3  • 


HHHHtHHIiHIIHIliHHiHtHHiHHItllimHflHHHHHIlHIHIIHHHIHIIIIHtllfHHHHf 

•  110*  SALARY  H1THIN  POSITION  (RECORD  IN  100)  * 

•  • 

t  110  SALARY-NITH1N-P0  100  REC  * 

HHHHIHHIHtHHHHillHHHHiHlllIHliHimHHHtlHHHHKHHHHHHHHHIIIIHHHI 


111*  PAY  RATE  (HONEY  19999.99  IN  110) 


411  PAY-RATE 


110  PIC  9999V99 


COHP-3 


HIHIIHIHHIiHIIHIIKmmilHHItlKIMHlIHHHIHliHIIHIHKHMHHHIfHtHIHimtH 

112*  PAY  SCHEDULE  (CHAR  1(7)  IN  110)  * 

112  PAY-SCHEDULE  110  PIC  1(7)  • 

HtmtmttMtftfmmmmmfmmttHttHtmmmmttmmmmtmttttMttmtttmm 


•MmmtHfHHtffffMtmftttfitHfitittMmftftMfmmttmmmHtmmmmmmHm* 

113*  EFFECTIVE  DATE  (DATE  IN  110)  • 

t 

113  EFFECTIVE-DATE  110  PIC  9(7)  COHP-3  « 


HIHHIIIIHIIHHHIlHIKHIIillHHItHHHHimKHIIHfltllHIIIHHIHHIHHHIHIHIIIHH 

•  114*  CURRENT  DEDUCTION  (NON-KEY  HONEY  *9999.99  IN  110)  • 

t  • 

•  114  CURRENT-DEDUCTION  110  PIC  9999V99  COHP-3  » 

•*••*•*•**♦•*  H**M*M***tt*ttt****MHM»tlt*tMHt#tf  #***#••♦****•#**#*•****#•#*#*#•••*•*•*#***#** 


*  120*  MONTHLY  PAYROLL  ACCOUNTING  (RECORD  IN  110)  • 

#  • 

*  120  MONTHLY-PAYROLL  110  REC  * 

*********  t**t***tt***  ********  t<**tfff*ft**f*f*M*t*tf********H**f  ***********************  *********** 


********************** 


•  .121*  PAYROLL  MONTH  (BATE  IN  120)  » 

<  • 

•  121  PAYROLL-MONTH  120  PIC  9(7)  COMP-3  « 

m************************************************************************************************* 


•  122*  REGULAR  HOURS  (NON-KEY  DECIMAL  NUMBER  999.99  IN  120)  • 

*  « 

•  122  REGULAR-HOURS  120  PIC  999V99  COMP-3  • 

••H************************************************************************************* *********** 


123*  OVERTIME  HOURS  (NON-KEY  DECIMAL  NUMBER  999.99  IN  120) 


OVERTIME-HOURS 


120  PIC  999V99 


COMP-3 


*•••*****••***•* 


ft********************************** 


124*  GROSS  PAY  (NON-KEY  MONEY  19999.99  IN  120) 


GROSS-PAY 


120  PIC  9999V99 


COMP-3 


«•*•*• t********************************************************************************* *<*«•«•***•* 


****************************** ********************************************************************** 

•  125*  FEDERAL  TAX  DEDUCTION  (NON-KEY  HONEY  19999.99  IN  120)  • 

•  • 


125  FEOERAL-TAX-DEDUCTIQN 


120  PIC  9999V99 


COMP-3 


HIHHHHHI 


c 


HIHIHIIHiHI 
t 
* 

•  126  NET-PAY 

UIHHHHHHMIHIHHK 


•HHHHIIHHHHHHHIHMHHHHHHMI 

126*  NET  PAY  (NON-KEY  HONEY  69999.9?  IN  120) 


120  PIC  9999V99 


COHP-3 


44*4 


444*444444444*44444444444444444444444444444444444444444444444*444444444444444444444444444444444444*4 

•  ISO*  ADDITIONAL  INFORMATION  (RECORD  IN  100)  • 

*  * 

•  130  ADDITIONAL-INFQR  100  REC  * 

**********4*****4*******************************************4****************4*******4****4***4****4 


**tmt**mtttt*»«*«*  ***************************************************4****************4********* 

•  131*  LINE  NUMBER  (DECIMAL  NUMBER  99.9  IN  130)  * 

t  * 

•  131  LINE-NUNBER  130  PIC  99V9  COHP-3  * 

4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444 


••••ft****************  »*«t*f«**ff«f«ff*4<fff4f*f<f**t***ft*#tf***t****t******l>*********»*»*t*»**« 

*  132*  COMMENT  TEXT  (NON-KEY  TEXT  1(7)  IN  130)  • 

*  * 

•  132  COMMENT-TEXT  130  PIC  1(7)  * 

4*4444444* 4*4*4444 44t»4*(4****»t*l***»*««*l*Hi*ttft»t***l*t****t»****44**t*****t*t*tt*<******»***** 


•  200*  JOB  SKILLS  (RECORD)  * 

•  • 

•  200  JOB-SKILLS  0  REC  • 

♦44*44*44*»******44**4444*44**444**44f***444*444*444*444*444**4****44**44*444*4»»44444»44444*4***4*4 


***44*M* **•*************••*••**♦♦♦•♦•******«*♦**•*••*♦•••******»*•*•*»*♦»•*»»♦*«** 

•  201*  SKILL  TYPE  (CHAR  1(12)  IN  200  NITH  SOME  FUTURE  OCCURRENCES  ) 

4 

•  201  SKILL-TYPE  200  PIC  1(12) 

***444444>*44**444444444444444(4*44*(**(((t44t*444*tt**4*(t***f**4t**4tt*****44*4(4 


444* 


8  -  10 


•t*f«**tm**m*»t***m*m*i*t**t**t****t*****t**f***<t**t*«H*****H*t***ttttt*mmt*mt***t 

»  202*  PROFICIEMY  (NON-KEY  CHAR  1(3)  IN  200) 

•  202  PROFICIENCY  200  PIC  X<3) 

•*********t*t***t*f*******tt*ti*t**ftt**tff**tl*l****M**t<****M*t******t*t*tt**t**t*t********t**t 


200  PIC  X(3) 


203*  YEARS  OF  EXPERIENCE  (NON-KEY  INTE6ER  NUMBER  09  IN  200) 


YEARS-OF -EXPERIENCE 


200  PIC  99 


COMP-3 


t*************************************** ***(********** t********************************************* 


300*  PERSONAL  INTERESTS  (RECORD) 


PERS0NAL-1NTERES 


«•**«*«« 


**»***»***>*»*****»*»***>******it**»**»**«*t»*tt*«t*t«««****t»*»»tt»********t***t*t«*»»**«******t*t* 

*  301*  INTEREST  (CHAR  X(12)  IN  300  NITH  FEN  FUTURE  OCCURRENCES  )  • 

•  • 

•  301  INTEREST  300  PIC  X(12)  • 

*•*•****•**•***•*•••***••***•••*♦**********•***♦•**••*••*•***••***•*•**•****•*#***•***#***♦*•**•**** 


**<***•*•*•*  **********  *ff*M*<**if*f*tff*M*tff**f*****ttff  **************************************** 

302*  AFFILIATION  (NON-KEY  CHAR  X(S)  IN  300)  » 

302  AFFILIATION  300  PIC  X(5)  • 

•*t*****t*»tt****tH»t*tttt******»mf*t*tt*»«t»t*»»*****t«t**tf**»***t****»»t*f*****ttt*t*4tt**»** 


*•**•*•***• 


t****ttt*ttl*ttttt*tf ************************ 


303*  COMMENT  (NON-KEY  TEXT  X(S)  IN  300) 


COMMENT 


300  PIC  X(5)  • 

*  MM****************************************************  ******** 


C 


mt 


400*  EDUCATIONAL  BACKGROUND  (RECORD) 


400  EDUCATIONAL-BACK 


REC 


HHHHIH*tl*l*l*Hlllttt*tt*lt*tt*t*lll*l*tlH*tlHHt*t*HI*H*IH*t*t****H*Hf**HtHH*HHH 


IH* 


410 

IHH 


410*  EDUCATION  (RECORD  IN  400) 
EDUCATION 


400  REC 


!**• 


IH* 


•HI 


411 


411*  SCHOOL  (CHAR  I (IS)  IN  410) 


SCHOOL 


410  PIC  M5) 


HHHIHHIlHHHIfHHIIIHIHHHIiilHIIIIHiHIH 


•HI 


I  HI 


HHHHHHHHHHHHHHHHHHHtHHHIHHHHHHHHHHHHHHHHHHHHHHHHHHH 


412*  DEGREE/CERTIFICATE  (CHAR  1(7)  IN  410  KITH  FEN  FUTURE  OCCURRENCES 


) 

412 


DEGREE-CERTIFICATE 


410  PIC  1(7) 


HHHHHHHHHHMHHHHHHHHHHIHIHHHHHHHHHHHHHHHHHHtHHHHIHHHH 


•HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHtHHHHHHH 


« 

•  413 

•HH»HHH*HHI 


413*  DATE  C0NPLETED  (DATE  IN  410) 


DATE-COMPLETED 


410  PIC  9(7) 


COHP-3 


IH* 


•  414*  MAJOR  FIELD  (N0N-KET  CHAR  1(16)  IN  410)  • 

•  * 

•  414  MAJOR-FIELD  410  PIC  X(16)  • 

******  •*HH*H*H**H*H#HHH**H*HHHHH*HIIH**HHHH*H*HH*H*HH*H*H************** 


0-12 


4151  MINOR  FIELD  (NON-KEY  CHAR  1(12)  IN  410) 


>« 


•  4151  MINOR  FIELD  (NON-KEY  CHAR  1(12)  IN  410)  • 

*  » 

•  415  MINOR-FIELD  410  PIC  X(12)  * 

**»*tt*****tt***t*tf*t**t*****f*ti*t*****f*«*«*****«*«<**f*f**mm*ffm**#t**f*f*************»*** 


•  420*  TRAINING  (RECORD  IN  400) 

* 

«  420  TRAINING  400  REC 


* 

* 

*** 


« 

t 


IHHHHHMIHHIHIHIHIIHHtlllHIitttlKHUlilltll 
421*  SOURCE  (NON-KEY  CHAR  1(12)  IN  420) 

421  SOURCE  420  PIC  X(12) 

>*******ft****tt**t*t*ti*ttf**i*t*»*****t***t**t**t**t***i 


* 

t 

********** 


«<f*«f***«**m*ff***#**mmm*f**m***»*»***»*»***f**t*tt**«tt*t*ft***tttt*t***«***tt*«*»t*t*t* 

•  422*  CLASS  NAME  (CHAR  1(12)  IN  420  NiTH  FEN  FUTURE  OCCURRENCES  )  • 

t  » 

t  422  CLASS-MANE  420  PIC  1(12)  • 

t*«**t***t***tttttttft****ft«»tf*»t*tt*t*tt*t*t***tff***t**t*t***f****t*«t*****t*»**t**t*tt*it*m*t 


it** 


423 


423*  DATE  ACCOMPLISHED  (DATE  IN  420) 
DATE-ACCOMPLISHED  420  PIC  0(7) 


COHP-3 


It** 


0-13 


Fils  Nanus:  S2kt«mp 


0  EMPLOYEE 

1  EMPLOYEE-NUMBER 

2  LAST-NAME 

3  FORENAME 

4  HIRE-DATE 

5  BIRTHDAY  - 

6  SOCIAL-SECURITY-NUMBER 

7  SEX 

8  ETHNIC-QRI6IN 

9  EMPLOYEE-STATUS 

10  OFFICE-EITENSION 

11  ACCRUED-VACATION 

12  ACCRUED-SICK-LEAVE 

13  SECURITY-CLEARANCE 

14  STREET-ADDRESS 

15  CITY-STATE 

14  ZIP-CODE 

100  POSITION-NITHIN 

101  POSITION-TITLE 

102  DEPARTMENT 

103  MANAGER 

104  POSITION-TYPE 

105  START-DATE 

104  END-DATE 

110  SALARY-NITHIN-PO 

111  PAY-RATE 

112  PAY-SCHEDULE 

113  EFFECTIVE-DATE 

114  CURRENT-DEDUCTION 

120  MONTHLY-PAYROLL 

121  PAYROLL-MONTH 

122  REGULAR-HOURS 

123  OVERTIME-HOURS 

124  GROSS-PAY 

125  FEDERAL-TAI-BEDUCTION 

124  KT-PAY 

130  ADDITIONAL-INFOR 

131  LINE-NUMBER 

132  C0HHENT-TE1T 

200  JOB-SKILLS 

201  SKILL-TYPE 

202  PROFICIENCY 

203  YEARS-OF-EIPERIENCE 

300  PERSONAL-INTERES 

301  INTEREST 

302  AFFILIATION 

303  COMMENT 

400  EDUCATIONAL-BACK 


REC 

0 

PIC 

9999 

COM 

0 

PIC 

mo) 

0 

PIC 

X  (20) 

0 

PIC 

917) 

COM 

0 

PIC 

9(7) 

COM 

0 

PIC 

mi) 

0 

PIC 

X  (4) 

0 

PIC 

1(9) 

0 

PIC 

1(9) 

0 

PIC 

1(9) 

0 

PIC 

999V99 

COM 

0 

PIC 

999V99 

COM 

0 

ZIC 

999 

CON 

0 

PIC 

X(20) 

0 

PIC 

XU5) 

0 

PIC 

1(5) 

0 

REC 

100 

PIC 

mo) 

100 

PIC 

X  (14) 

100 

PIC 

tu 

100 

PIC 

m2) 

too 

PIC 

9(7) 

CON 

100 

PIC 

9(7) 

CON 

100 

REC 

110 

PIC 

9999V99 

COM 

110 

PIC 

1(71 

no 

PIC 

9(7) 

COM 

110 

PIC 

9999V99 

COM 

no 

REC 

120 

PIC 

9(7) 

COM 

120 

PIC 

999V99 

CON 

120 

PIC 

999V99 

COM 

120 

PIC 

9999V99 

COM 

120 

PIC 

9999V99 

CON 

120 

PIC 

9999V99 

CON 

100 

REC 

130 

PIC 

99V9 

COM 

130 

PIC 

X<7) 

0 

REC 

200 

PIC 

m2) 

200 

PIC 

X  (S) 

200 

PIC 

99 

COM 

0 

REC 

300 

PIC 

m2) 

300 

PIC 

X(5) 

300 

PIC 

1(5) 

0 

REC 

& 

fo 


TW 


fc 


K, 


K  • 


I 


V 

n 


File  Nam*:  Idmsmodl 


10  48 

R  EMPLOYEE  100  0 

C  EMPLOYEE-NUMBER 


1 1 

EMPLOYEE-NUMBER 

PIC 

9999 

COHP-3  0 

1  2 

LAST-NAME 

PIC 

X(10) 

0 

I  3 

FORENAME 

PIC 

X  (20) 

0 

1  4 

HIRE-DATE 

PIC 

9(7) 

COHP-3  0 

I  3 

BIRTHDAY 

PIC 

9(7) 

COMP-3  0 

1  6 

S0C I AL-SECUR I TY -NUMBER 

PIC 

X(ll) 

0 

I  7 

SEX 

PIC 

X  (6) 

0 

I  8 

ETHNIC-ORIGIN 

PIC 

X  (9) 

0 

I  9 

EMPLOYEE-STATUS 

PIC 

X(9) 

0 

I  10 

OFFICE-EXTENSION 

PIC 

X  (9) 

0 

I  11 

ACCRUED-VACATION 

PIC 

999V99 

COMP-3  0 

I  12 

ACCRUED-SICK-LEAVE 

PIC 

999V99 

COHP-3  0 

I  13 

SECURITY-CLEARANCE 

PIC 

999 

COHP-3  0 

I  14 

STREET-ADDRESS 

PIC 

X(20) 

0 

I  IS 

CITY-STATE 

PIC 

X  (IS) 

0 

I  16 

ZIP-CODE 

PIC 

X(5) 

0 

R  POSITION-MITHIN  105  100  0 

17 

V  RELATION-1 

I  101  POSITION-TITLE 
I  102  KPMtTHEIIT 
I  103  MANAGER 
I  104  POSITION-TYPE 
1  105  START-DATE 
I  106  END-DATE 
R  SALARV-HITHIN-PO 

V  RELATION-2 


EMPLOYEE 


PIC 

PIC 

PIC 

PIC 

PIC 

PIC 


POSITIDN-NITHIN 

X(10) 

11141 

xxx 

1(121 

9(7) 

9(7) 


100 

100 

100 

100 

C0MP-3  100 
COHP-3  100 


120  110  100  23 


P0SITI0N-NITHIN  SALARY-NITHIN-PO 


ip 

I  111  PAY-RATE 

PIC 

9999V99 

COHP-3  110 

jjg 

I  112  PAY-SCHEDULE 

PIC 

1(7) 

110 

ja  p 

I  113  EFFECTIVE-DATE 

PIC 

9(7) 

COMP-3  110 

{ j  i  - 

I  114  CURRENT-DEDUCTION 

PIC 

9999V99 

COMP-3  110 

OS 

R  MONTHLY-PAYROLL  130  120  110 

27 

M 

V  RELATION-3  9ALARY-NITHIN-P0 

MONTHLY-PAYROLL 

I  121  PAYROLL-MONTH 

PIC 

9(7) 

COHP-3  120 

•v 

I  122  REGULAR-HOURS 

PIC 

999V99 

COMP-3  120 

I  123  OVERTIME-HOURS 

PIC 

999V99 

COMP-3  120 

£ 

I  124  6R0SS-PAY 

PIC 

9999V99 

COMP-3  120 

•  * 
.**4 

I  125  FEDERAL-TAX-DEDUCTION 

PIC 

9999V99 

COHP-3  120 

E> 

I  126  NET-PAY 

PIC 

9999V99 

COHP-3  120 

R  AD0ITIONAL-INFDR  140  130  100 

33 

V  RELATION-4  POSITION-NITHIN 

ADDITI0NAL-1NF0R 

I  131  LINE-NUMBER 

PIC 

99V9 

COHP-3  130 

> * » 

I  132  COMMENT-TEXT 

PIC 

X 17) 

130 

R  JOB-SKILLS  150  200  0 

35 

i 

^  V  RELATION-5  EMPLOYEE 

JOB-SKILLS 

a 

I  201  SKILL-TYPE 

*  * 

PIC 

X(12) 

200 

% 

> 

G  -  16 

i 

V->  V-V- 
•A-V-.-V 

*.  V« 

I  202  PROFICIENCY 

PIC 

1(5) 

200 

I  203  VEARS-OF-EIPERIENCE 

PIC 

99 

COMP-3  200 

R  PERSON AL-INTERES 

140  300  0 

38 

V  RELATION-4 

EMPLOYEE 

PERSONAL-INTERES 

I  301  INTEREST 

PIC 

1(12) 

300 

I  302  AFFILIATION 

PIC 

1(5) 

300 

I  303  COHHENT-1 

PIC 

1(5) 

300 

R  EDUCATIONAL-BACK 

170  400  0 

0 

V  RELATION-7 

EMPLOYEE 

EDUCATIONAL-BACK 

I  EDUCAT I ONAL-BACK-DUHHY 

PIC  1(4) 

400 

R  EDUCATION 

180  410  400 

41 

V  RELATION-8 

EDUCATIONAL-BACK 

EDUCATION 

I  411  SCHOOL 

PIC 

1(15) 

410 

I  412  DE6REE-CERTIFICATE 

PIC 

1(7) 

410 

1  413  DATE-CONPLETED 

PIC 

9(7) 

COMP-3  410 

I  414  MAJOR-FIELD 

PIC 

1(14) 

410 

I  415  MINOR-FIELD 

PIC 

1(12) 

410 

R  TRAININ6 

190  420  400 

44 

V  RELATION-9 

EDUCATIONAL-BACK 

TRAININ6 

I  421  SOURCE-1 

PIC 

1(12) 

420 

I  422  CLASS-HARE 

PIC 

1(12) 

420 

I  423  DATE-ACCOMPLISHED 

PIC 

9(7) 

COMP-3  420 

File  Nama:  Schama 


HHIHfHHHMHHHHHitHtffHIHffHHffHHiHiHI 

•  SCHEMA  DESCRIPTION  STATEMENTS  • 


I  HHHHHHHMHHHHHiHHIIIHHHHtHtHHHHtH 

i 

SCHEMA  DESCRIPTION, 


SCHEMA  NAME  IS  AFITSCHH  VERSION  1  . 
SATE.  11/18/83. 


INSTALLATION.  NAS  7000  -  2 

NRI6HT-PATTERS0N  AFB,  OHIO. 

REMARKS.  THIS  IS  A  SAMPLE  ISMS  SCHEMA 

DERIVED  FROM  THE  AFITSCHH 
DATABASE  SCHEMA  CURRENTLY 
INSTALLED  UNDER  S2000. 


AUTHOR.  CAPT  JERRY  (MENS 

513-255-6321. 

* 


t  HHHHHHtHiHHHHIHHIHHHIIIIHIIHHHHttHI 

•  t  FILE  DESCRIPTHQN  STATEMENTS  • 


f 

FILE  DESCRIPTION. 


FILE  NAME  IS  AFITF1LE  ASSIBN  TO  AFITFJLE 

DEVICE  TYPE  IS  3330B. 

HHHHHHHMHHIHHtHHHIlHHHHHIHIHIHHH 

•  AREA  DESCRIPTION  STATEMENTS  • 

mmtmttttmmtmttmtmmttmttmtmmm* 

AREA  DESCRIPTION. 

AREA  NAME  IS  AFIT-RESION 

RANGE  IS  4000  THRU  40W 

NITHIN  FILE  AFITFILE 
FROM  1  THRU 


100, 


I  HHIIHHIlHHItiHfHHiHfHttKIlHHHtlHHIHfHt 

t  •  RECORD  DESCRIPTION  STATEHERTS  • 

I  HHlWHHIfHHHttHIIHKtHtimHHHIHIHHIHM 

» 

RECORD  DESCRIPTION. 

RECORD  NAME  IS  EMPLOYEE 
RECORD  ID  IS  100. 


LOCATION  MODE  IS  CALC 

USIN6  EMPLOYEE-NUMBER 

DUPLICATES  ARE  NOT  ALLONED. 

WITHIN  AFIT-RE6I0N  AREA. 

03  EMPLOYEE-NUMBER 

PIC  99W 

COHP-3. 

03  LAST-NAME 

PIC  X<10> 

03  FORENAME 

PIC  11(201 

03  HIRE-DATE 

PIC  0(71 

COMP-3. 

03  BIRTHDAY 

PIC  9(7) 

COMP-3. 

03  SOCIAL-SECURITY-NUMBER 

PIC  Kill 

03  SEX 

PIC  X(A> 

03  ETHNIC-ORIBIN 

PIC  X<9) 

03  EMPLOYEE-STATUS 

PIC  X(9> 

03  OFFICE-EXTENSION 

PIC  X(9) 

03  ACCRUED-VACATION 

pic  mm 

COHP-3. 

03  ACCRUED-SICK-LEAVE 

PIC  99W99 

COHP-3. 

03  SECURITY-CLEARANCE 

PIC  W9 

COHP-3. 

03  STREET-ADDRESS 

PIC  XI 20) 

03  CITY-STATE 

PIC  XUS) 

03  ZIP-CODE 

PIC  1(5) 

RECORD  NAME  IS  P0SITI0N-N1THIN 
RECORD  ID  IS  110. 

LOCATION  MODE  IS  VIA  RELATION-1 

SET. 

NITHIN  AFIT-RE8I0N  AREA. 

03  POSITION-TITLE 

PIC  XUO) 

03  DEPARTMENT 

PIC  X(14) 

03  HANA6ER 

PIC  XXX 

03  POSITION-TYPE 

PIC  1(12) 

03  START-DATE 

PIC  9(7) 

COHP-3. 

03  END-BATE 

PIC  9(7) 

COMP-3. 

RECORD  NAME  18  8ALARY-NITHIN-P0. 
RECORD  ID  IS  120. 

LOCATION  NODE  IS  VIA  RELATION-2 

SET. 

NITHIN  AFIT-RESION  AREA. 

03  PAY-RATE 

PIC  9999VW 

COHP-3. 

03  PAY-SCHEDULE 

PIC  X(7) 

• 

03  EFFECTIVE-DATE 

PIC  9(7) 

COHP-3. 

03  CURRENT-DEDUCTION 

PIC  9W9VW 

COHP-3. 

COHP-3. 

COHP-3. 


3 

a 


LV, 

S; 

>. 

,\ 

V 


■‘I 


'S 

V 


f 


RECORD  NAME  IS  MONTHLY -PAVIWLL  . 
RECORD  ID  IS  130. 

LOCATION  RODE  IS  VIA  RELATION-3 

SET. 

HITHIN  AFIT-RE6I0N  AREA. 

03  PAYROLL-MONTH 

PIC  9(7) 

COMP-3. 

03  RE8ULAR-H0URS 

PIC  vww 

COMP-3. 

03  OVERTIME-HOURS 

PIC  W9VW 

COHP-3. 

03  6R0SS-PAY 

PIC  WWW? 

COMP-3. 

03  FEDERAL-TA1-DEDUCTI0N 

PIC  99WV99 

COMP-3. 

03  NET-PAY 

PIC  9WWW 

COMP-3. 

RECORD  NAME  IS  ADDITIONAL-INFOR. 
RECORD  ID  IS  140. 

LOCATION  NODE  IS  VIA  RELATION-4 

SET. 

HITHIN  AFIT-RE6I0N  AREA. 

03  LINE-NUMBER 

PIC  WW 

COHP-3. 

03  C0MENT-TE1T 

PIC  1(7) 

■ 

RECORD  NAME  IS  JOB-SKILLS 

RECORD  ID  IS  130. 

LOCATION  NODE  IS  VIA  RELATION-3 

SET. 

HITHIN  AFIT-REBION  AREA. 

03  SKILL-TYPE 

PIC  X(12) 

• 

03  PROFICIENCY 

PIC  X(5) 

• 

03  YEARS-OF-EIPERIENCE 

PIC  W 

COHP-3. 

RECORD  NAME  IS  PERSONAL-INTERES. 
RECORD  ID  IS  lbO. 

LOCATION  NODE  IS  VIA  RELATION-6 

SET. 

HITHIN  AFIT-REBION  AREA. 

03  INTEREST 

PIC  X<12) 

• 

03  AFFILIATION 

PIC  X<5) 

• 

03  COHMENT-1 

PIC  X(5) 

• 

RECORD  NAME  IS  EDUCATIONAL-BACK. 
RECORO  ID  IS  170. 

LOCATION  NODE  IS  VIA  RELATION-7 

SET. 

HITHIN  AFIT-REBION  AREA. 

03  EDUCAT I ONAL-BACK-OUHH Y 

PIC  1(41 

• 

RECORO  NAME  IS  EDUCATION 

RECORD  IS  IS  ISO. 

LOCATION  NODE  IS  VIA  RELATION-8 

SET. 

HITHIN  AFIT-REBION  AREA. 

03  SCHOOL 

PIC  XUS) 

03  DESREE-CERTIFICATE 

PIC  1(7) 

03  DATE-COMPLETED 

PIC  9(7) 

COHP-3 

03  MAJOR-FIELD 

PIC  XUO) 

03  MINOR-FIELD 

PIC  X(12) 

0  —  20 


RECORD  HARE  IS  TRAININ8 
RECORD  ID  IS  190. 

LOCATION  RODE  IS  VIA  RELATION-9 
WITHIN  AFIT-RESIQN  AREA. 

03  SOURCE-1 
03  CLASS-NAHE 
03  OATE-ACCORPLISREO 


PIC  1(12) 
PIC  XI12) 
PIC  917) 


CORP-3 


•  •  SET  DESCRIPTION  STATEHENTS  • 

SET  DESCRIPTION. 


SET  NARE  IS  RELATION-1 
ORDER  IS  NEXT. 

NODE  IS  CHAIN 
ONNER  IS  EHPLOYEE 

HEHBER  IS  POSITION-NITHIN 


LINKED  TO  PRIOR. 

NEXT  DIKEY  POSITION  IS 
PRIOR  DBKEY  POSITION  IS 
NEXT  DBKEY  POSITION  IS 
PRIOR  MKEY  POSITION  IS 
HANDATORY  AUTONATIC. 


SET  NARE  IS  RELATION-2 
ORDER  IS  NEXT. 

NODE  IS  CHAIN 

ONNER  IS  POSITION-NITHIN 

HEHBER  IS  BALARY-NITHIN-PQ 


LINKED  TO  PRIOR. 

NEXT  DIKEY  POSITION  IS 
PRIOR  DBKEY  POSITION  IS 
NEXT  DBKEY  POSITION  IS 
PRIOR  DBKEY  POSITION  IS 
HANDATORY  AUTONATIC. 


SET  NAHE  IS  RELATION-3 
ORDER  IS  NEXT. 

NODE  IS  CHAIN 

ONNER  IS  8ALARY-NITHIN-P0 

RENDER  IS  HONTHLY-PAYROLL 


LINKED  TO  PRIOR. 

NEXT  DIKEY  POSITION  IS 
PRIOR  DBKEY  POSITION  IS 
NEXT  DIKEY  POSITION  IS 
PRIOR  DBKEY  POSITION  IS 
HANDATORY  AUTONATIC. 


SET  NAME  18  RELATION-4 
ORDER  IS  NEXT. 

MODE  IS  CHAIN 

ONNER  IS  POSITIQN-NITHIN 

MENDER  IS  ADDITIONAl-INFOR 


SET  NAME  IS  RELATION-5 
ORDER  IS  NETT. 

MODE  IS  CHAIN 
ONNER  IS  EMPLOYEE 

MEMBER  IS  JOB-SKILLS 


SET  NAME  IS  RELATION-* 
ORDER  IS  NEXT. 

NODE  IS  CHAIN 
ONNER  IS  EMPLOYEE 

MEMBER  IS  PERSONAL-1NTERES 


SET  NAME  IS  RELATION-7 
ORDER  IS  NEXT. 

MODE  IS  CHAIN 
ONNER  IS  EHPLOYEE 

MEMBER  IS  EDUCATIONAL-BACK 


SET  NAME  IS  RELATION-B 
ORDER  IS  NEXT. 

MODE  IS  CHAIN 

ONNER  IS  EDUCATIONAL-BACK 


LINKED  TO  PRIOR. 

NEXT  DBKEY  POSITION  IS  3 
PRIOR  DBKEY  POSITION  IS  6. 
NEXT  DBKEY  POSITION  IS  1 
PRIOR  DBKEY  POSITION  IS  2 
MANDATORY  AUTOMATIC. 


LINKED  TO  PRIOR. 

NEXT  DBKEY  POSITION  IS  3 
PRIOR  DBKEY  POSITION  IS  4. 
NEXT  DBKEY  POSITION  IS  1 
PRIOR  DBKEY  POSITION  IS  2 
MANDATORY  AUTOMATIC. 


LINKED  TO  PRIOR. 

NEXT  DBKEY  POSITION  IS  3 
PRIOR  DBKEY  POSITION  IS  A. 
NEXT  DBKEY  POSITION  IS  1 
PRIOR  DBKEY  POSITION  IS  2 
MANDATORY  AUTOMATIC. 


LINKED  TO  PRIOR. 

NEXT  DBKEY  POSITION  IS  7 
PRIOR  DBKEY  POSITION  IS  B. 
NEXT  DBKEY  POSITION  IS  1 
PRIOR  DBKEY  POSITION  IS  2 
MANDATORY  AUTOMATIC. 


LINKED  TO  PRIOR. 

NEXT  DBKEY  POSITION  IS  3 
PRIOR  DBKEY  POSITION  IS  4. 
NEXT  DBKEY  POSITION  IS  1 
PRIOR  DBKEY  POSITION  IS  2 
MANDATORY  AUTOMATIC. 


MEMBER  IS  EDUCATION 


SET  NAME  IS  RELATION-9 
ORDER  IS  NETT. 

NODE  IS  CRAIN  LINKED  TO  PRIOR. 

ONNER  IS  EDUCATIONAL-BACK  NEXT  DIKE?  POSITION  IS  S 

PRIOR  DIKEY  POSITION  IS  A. 
NEXT  DIKEY  POSITION  IS  I 
PRIOR  HKEY  POSITION  IS  2 
HANDATORY  AUTOMATIC. 


MEMBER  IS  TRAINING 


Film  Nai 


DMCL 


DEVICE-MEDIA  DESCRIPTION. 

DEVICE-MEDIA  NAME  IS  AFITDNCL  OF  SCHEMA  NAME  AFITSCHH  VERSION  1 


AUTHOR. 

DATE. 

INSTALLATION. 


REMARKS. 


CAPT  JERRY  OMENS 
11/18/83. 

NAS  7000  -  2 

NRI8HT  -  PATTERSON  AFB,  OHIO. 

THIS  IS  A  GENERAL  FORM  OF  THE 
IHCL.  PLEASE  HAKE  THE  DESIRED  CHAN6ES. 


DUFFER  SECTION. 

DUFFER  NAME  IS  6ENERAL-8UFFER 
PA8E  CONTAINS  40*0  CHARACTERS 
DUFFER  CONTAINS  8  PA6ES. 


AREA  SECTION. 

COPY  AFIT-RE6IDN  AREA 

FROM  SCHEMA  NAME  AFITSCHH  VERSION  1 
BUFFER  IS  SENERAL-BUFFER. 


JOURNAL  SECTION. 

JOURNAL  BLOCK  CONTAINS  1000  CHARACTERS. 

FILE  NAME  IS  TAPE-JOURNAL  ASSIGN  TO  SYSJRNL 
DEVICE  TYPE  IS  2400. 


Fils  Nans:  Subs 


DELETE  SUBSCHEMA  NAME  IS  AFITSUBI. 
ABD  SUBSCHEMA  NAME  IS  AFITSUBI 
OF  SCHEMA  NAME  IS  AFITSCHH 
DMCL  NAME  IS  AFITDMCL  . 

ADD  AREA  AFIT-REBION 
ADD  RECORD  EMPLOYEE 
ADD  RECORD  POSITION-NITHIN  . 

ADD  RECORD  SALARY-NITHIN-PO  . 

ADD  RECORD  MONTHLY-PAYROLL  . 

ADD  RECORD  ADDITIONAL-INFOR  . 

ADD  RECORD  JOB-SKILLS 
ADD  RECORD  PERSONAL-INTERES  . 

ADD  RECORD  EDUCATIONAL-BACK  . 

ADD  RECORD  EDUCATION 
ADD  RECORD  TRAININ6 
ADD  SET  RELATION-1 
ADD  SET  RELATION-2 
ADD  SET  RELATION-3 
ADD  SET  RELATION-4 
ABD  SET  RELATION-5 
ADD  SET  RELATION-6 
ADD  SET  RELATION-7 
ADO  SET  RELATION-8 
ADD  SET  RELATION-9 


James  G.  Owens  was  born  on  20  September  1956  in 
Norfolk,  Virginia.  He  graduated  from  high  school  in  Virginia 
Beach,  Virginia,  in  1974  and  attended  the  University  of  South 
Carolina  from  which  he  received  a  B.S.  in  Computer  Science  in 
Hay  1978.  Upon  graduation,  he  received  a  commission  in  the 
USAF  through  the  ROTC  program  and  was  assigned  to  the  ASD 
Computer  Center  at  Wright  -  Patterson  AFB,  Ohio,  until  1  June 
1982.  On  16  December  1983,  he  graduated  with  a  M.S.  in 
Information  Systems  from  the  Air  Force  Institute  of 
Technology. 
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